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IDENTIFICATION 


PRODUCT CODE: MAINDEC-11-DZTCC-A-D 
PROOUCT NAME: TCS = TC1l TEST 3 





ORTE: MAY 1, 1972 
MAINTAINER: DIAGNOSTIC GROUP 
RUTHOR: L. R. KOLLER 


THIS MAINDEC OSSOLETES MAINDEC-11-D3¢C 
° COPYRIGHT 1972, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


C3 - TCL] TEST 3 IS PART 3 OF A FIVE PROGRAM PACKAGE 
USED TO TEST THE TC1l DECTAPE CONTROL. 





2.2 


_THE ABS LOADER IS USED TO LORD THE PROGRAM. 
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ABSTRACT 


Se em mo 


TC3 = TC1l TEST 3 IS PAR PROGRAM PACKAGE USED TQ TEST 


i Jad BSS OTL Ta ales ne oe 


TESTING ae ge 


READING, FORMARL Sera TEE eae "x ee re toa 


cure DATA) RDATA (READ DATA) 
REVERSE, AND WITH SINGLE, DOUBLE, aio 4 4 nee OTRANSFERS. 


ALL_EXECUTION TIMES QUOTED ARE TYPICAL OF A 11/20 SYSTEM. 


EXECUTION TIMES IN OTHER POP-11 SYSTEMS WILL VARY. 
REQUIREMENTS 


A. POP-11 SYSTEM (4K CORE). 
B. ASR33/35_ TELETYPE. 
¢. TC1l DECTAPE CONTROL AND AT LEAST ONE TUS& DUAL TRANSPORT. 


THE TELETYPE AND TC11 CONTROL 2ftust HAVE THEIR STANDARD PERIPHERAL 
ADDRESSES. INTERRUPT LEVELS INTERRUPT. VECTOR ADDRESSES. 

REFER TO SECTION 7.2 IF vauR cy SYSTEM DOES NOT HAVE STANDARD 
PERTPHEROL apoee SSeS. 


STORAGE 


THIS PROGRAM USES LOCATIONS 000000 THROUGH 017500. 
LOADING PROCEDURE 


THIS PROGRAM'S OBJECT TAPE IS PUNCHED IN ABSOLUTE FORMAT. 
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4. USE PROCEDURE 





OAD _UNITS TO BE Y aioe: WITH STANDARD FORMAT DECTAPE. SET TO 
ea WRITE ENASL 


i, 8 Rene Be MUST BE OFF. 


DENTIEIES ITSELF, TYPES TuP INSTRUCT AND HALTS. 
PERFOR Ser OR SETUP (STEPS A AN, 8) Se bats. TO BET ESTED Ih 
SR? Batre ish R UNIT6, ETC.). 


THE protean Ret TYPES 6 7 cris nesSact, SET UNIT? oR SPriONS 


THIS PROGRAM’S SR OPTIONS ARE: 





P MSPS DP 





Sri ANOLE 
R13 = 1 ANH HIGIT ERROR PRINTOUT 
nh . ig a SP 


AT END "OF “Tes! CURRENTLY SE CUTING 
a3 erect THE Teal CIFIED BY _SR7 THROUGH SRO 
THROUGH SRO - NUMBER OF TEST TO BE SELECTED 


SECTION 7.1 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 


_ H. THE PROGRAM BEGINS EXECUTION. 
* eT THE E END OF EACH PASS THE TELETYPE BELL RINGS ONCE, 9ND 
iJ. REFER TO SECTION 6.2 IF ERROR PRINTOUTS OCCUR. 








EXECUTION TIME: 


A. ONE NORMAL ERROR FREE PASS TAKES APPROXIMATELY 43 MINUTES. 
B. ONE SINGLE ITERATION PASS (SR11=1) TAKES ABOUT 15 MINUTES. 


HEHEEENOTE HE 
THE SINGLE pg PASS IS A CONVENIENT WAY TO QUICKLY 


DETERMINE IF ANY SOLID PROBLEMS OTS rm A THOROUGH TEST, 
THE NORMAL ITERATION PASS SHOULD BE R 

















4.1 RESTART PROCEDURE 


TO RESTART THE PROGRAM WITHOUT GENERATING THE INITIAL CRINTOUTS 
PROCEED AS FOLLOWS: (TRANSPORT UNDER TEST — THE SAME) 


p- LOAD ADDRESS 001000 
PRESS TART, F OF PREVIOUS PROCEDURE. 


O STEP H OF PREVIOUS PROCEDURE. 








bh ad ad 
83 
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PROGRAM AND/OR OPERATOR ACTION 


ut 
. 


Loc 002444 COMMON HALT. THIS HALT 1§ CONTAINED IN A SUBROUTINE 
tant AS GALLED BY pROcessD DR STOP, THIS HALT NORMALLY 
ecu NON NCERROR Batntours, 
OLE DATA ET TS DISPLAY THE ADDRESS OF 
INSTRUCTION THAT GENERATED THE HALT REQUEST. 


Loc 001774 HALT. TH CCURS UPON CO ETION 
RouriN ME ARENT TEST 8 Hout ve RIO IS SET. 
CONSOLE. DAT DATA LIGHTS DISPLAY THE NUMBER OF tHe Fest 


$.2 NORMAL PRINTOUTS 


ALL NON-ERROR PRINTOUTS ARE NORMAL PRINTOUTS. INSTRUCTION, 
TITLE, AND USER ERROR PRINTOUTS ARE NORMAL PRINTOUTS. 


6. ERRORS 


ERRORS ARE REPORTED IN THIS PROGRAM SY THE FOLLOWING METHODS: 


A. UNCONDITIONAL ERROR HALTS, OR 
B. ERROR PRINTOUT FOLLOWED BY OPTIONAL ERROR HALT. 


6.1 UNCONDITIONAL ERROR HALTS 


AN UNCONDITIONAL ERROR HALT WILL or ae AT THE ADDRESSES LISTED 
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE, PROGRAM CONTROL 
IS TRANSFERRED TO AN UNEXPECTED AREA BETWEEN OOO000 AND 000176. 


000002 RE AREA 
000006 


E 

000012 ean toad INSTRUCTION TRAP 

000016 DEBUG T 

a, 

OO0O40 THROUGH 000176 - SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA, 
EXCEPT FOR TC11 AND TTY VECTORS. 


TO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED, 
EXAMINE CONTENTS OF REGISTER 6. (ADDRESS 177706). 

ge as CONTENTS OF REG 6 TO THE SR, LOAD ADDRESS AND EXAMINE. 
THe pet ioe THE DATA LIGHTS IS THE VALUE OF THE PC WHEN 


LOCATE. IN PROGRAM LISTING THE DISPLAYED PC VALUE. 


oOo OWwD 
. eee 






FOL 
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(6.1 CONT'D) 
THE INSTRUCTION THAT IMMEDIATELY REFERENC 
ETI ANP SHS REDE ER SRST Be 
ams, a BEEN THE AIL 
AN UNCONDITIONAL ERROR HALT FAILURE I CONDITION 
INDICATING A HARDWARE FAILURE, OR MOS ONUIRECY a BR PROGRAM FAILURE. ie 
THIS PROGRAM ASSUMES THAT THE’ PROCESSOR 1S IN OPERATING CONDITION IN 4 





ORDER TO PERFORM ITS TESTS. ANY FURTHER STEPS REQUIRED TO DIAGNOSE AN 
AN UNCONDITIONAL ERROR HALT ARE NOT WITHIN THE SCOPE OF THIS PROGRAM. 






6.2 ERROR PRINTOUTS 


EER SUBROUTINE TS CALLED By aN “ERROR STATEMENT If THE 
PROGRAM LISTING. AN ERROR PRINTOUT LOOKS AS F 


T XXX PC OYYYYY ICNT 2222. UNIT 
UP TO 2 ADDITIONAL LINES OF ERROR INFORMATION. 







WHERE : 

T XXX IS THE NUMBER OF FAILING ROUTINE (OCTAL), 

PC OYYYYY IS THE ADDRESS OF ERROR CALL 

ICNT 2222. --1S THE.ITERATION COUNT AT TIME OF FAILURE. 
UNITW 15 THE UNIT IN USE AT TIME OF FAILURE. 












AFTER THE PRINTOUT IS COMPLETED, THE PROGRAM WILL HALT AT 
COMMON ERROR HALT AT LOC OOc4E0'IF SRIS IS SET. 


WHEN AN ERROR PRINTOUT OCCURS: 


A. LOOK UP THE ADDRESS REP ERED BY PC OYYYYY IN THE LISTING. 
- OPPOSITE THE PC VALUE AN “ERRORN” eM a WILL_BE FOUND, AND 
IN THE COMMENTS SECTION, A DESCRIPTION OF THE ERROR. 
C. ah te Fh OF THE TEST ROUTINE A DESCRIPTION OF THE ae 


uP TO 2 LINES OF ADDITIONAL ERROR INFORMATION MAY APPEAR ON AN ERROR 
iam SOME OF THE ITEMS THAT MAY APPEAR ARE: 


mK. (FROM PE). BODRESS THE” SUBRO £9 POE FROM A SUBROUTINE. 

* BRC XX OK. BOOS? a SUBROUTINE WAS CALLED FROM. 
Q_XXXX. HE ey ere USED WHEN 

"AN nal ON ro Ht SUN a Hires. EVEN BLOCK TRANSFER, BLKRQ 

REPRE cltned wee: HOUGH A FAILURE MAY 

T OCCURRED CORSE OLENT 


NOT HA BLOCK. 
D. INA og a} PRINTOUT THE "WORD #” THAT FAILED REPRESENTS THE 
POSITION OF THE WORD IN THE READ BUFFER MD Ae 48 NOT MEANT TO 
DESCRIBE THe WORD’S POSITION IN A DECTAPE BLOCK 


MACYLL 27(732) 10-SEP-76 15:51 PAGE 6 


eeceteaeeaen 


THE STANDARD SR OPTIONS ARE DESCRIBED HERE. 


SRIS 


SR14 


LT Qs A BUSS" 2k ME 


pa Sear OPTION 1S REMOVED, THE 


I CURRENT ROUTINE, AND WILL THEN 
GO ON TO THE NEXT ROUTINE. 


INHIBIT PRINTOUT. THIS OPTION IF SET, WILL REMOVE 
ALL PRINTOUTS. 


HHREENOTE HELE 


BLK EMR SI Re APPR DS 


INHIBIT ITERATION. SETTING THIS OPTION WILL CAUSE THE 
PROGRAM TO EXECUTE EACH are cee Fon NSTEAD OF THE 
NORMAL R OF TTERAT IONS SELECTED OR EACH TEST. 

TWO POSSIBLE USES OF THIS OPTION ARE 


A. QUICK PASS. EACH TEST IS RUN ONLY ONCE. 
B. TO SKIP OVER A FAILING ROUTINE. 


HALT AT oft END OF _ CURRENT ROUTINE. WITH THE OPTION SET 
ST. AND BIsPLAY 


Hoera croaTe Tees Maen OF Iie Teer dust COMPLETED 


A. TO STEP THROUGH THE PROGRAM ONE ROUTINE AT A TIME. 
B. WHEN THE PROGRAM HAS BEEN RUNNING FOR A WHILE, TO 
FIND T HAS_PROGRE 


SSED. 
C. IN TO STEP THROUGH ONE TEST 
TLURE REOCCURS. THE ROUTINE 
OLL THE PREVIOUSLY COMPLETED ROUTINE WOULD BE 


SET THE PROGRAM WILL GO AND 
NDICATED BY SRO 
IF THE OPTION 


THE CURRENT ROUTI con PET ED. 
IS REMOVED, THE PROGRAM WILL PROCEED TO EXECUTE THE 
ROUTINES FOLLOWING THE SELECTED ROUTINE. 
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TESTING TC1i AT NON-STANDARD ADDRESSES AND/OR VECTORS 


PES OPO GBS TER, BAU 8 EERE a EELS 


2 LOgeT ONS GUL Gulobs Theo HROUGH BH B010e0 10 REF T0 REFLECT THE NEW NE fli 


VECTORS. 


MAE I RHE SETA POORSSES, comes 


PROCEED TO USE THE PROGRAM, OR 


USING STANDARD DUMP ROUTINES Br, Bulle out THE ETRE EP Beant 
YOUR eySTER, _ TO HAVE AN OBJECT TAPE THAT REFLECTS 


DUMP OUT ONLY LOCATIONS 001004 THROUGH 001024 IN ABSOLUTE 
FORMAT, AND LOAD IT ALSO AFTER LOADING THE MAIN PROGRAM. 


DESCRIPTION 


THIS PROGRAM IS ORGANIZED INTO THREE MAIN SECTIONS: 
A. CONTROL ROUTINE, 
8 ST ROUTINES 

OMMON SUBROUTINES 
CONTROL ROUTINE 
THE CONTROL ROUTINE ASSUMES CONTROL WHEN THE PROGRAM IS STARTED. 
IT HAS THE FOLLOWING FUNCTIONS: 


A. CONTROLS SEQUENCE OF TEST ROUT INES. 
B. HONORS AND ACTS ON SR OPTIONS. 


THE CONTROL ROUTINE IS CALLED FROM A TEST ROUTINE BY THE ° 
“SCOPE” STATEMENT. 
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8.2 


8.3 


I01 
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TEST ROUTINES 
TESTIN RF ED By 4 STR THAT 
aA RSUES PA eat eal hah iat te 
Routh S HAT IS USE CONTROL 
oy PROPERLY SEQUE THROUGH THE TESTS. THE HEADER 
COOKS Mis FOLLOWS: 


eepeeeeennenneeenneneeneegnnnegnennanenengnnnonnnnconcnnnaiayy 
% 


a oe ee 


guunnannsnanensununnunoubavtancanianepessaansnssennanenseoenente 


THE FIRST 2 ITEMS SELF EXPLANATORY. THE TEST ITERATION COUNT 
ern Be fo tHe CONTROL ROUTINE THE NUMBER OF Yi THE TEST 
SHOULD BE PERFORMED BEFORE GOING ON TO THE NEXT ROUTINE. 


THE SCOPE ENTRY POINT INDICATES TO THE CONTROL ROUTINE THE ress 
IT SHOULD RETURN TO AFTER THE FIRST ITERATION. THE ADDRESS MA 
NOT NECCESARILY POINT T0.THE FIRST INSTRUCTION OF THE TEST. 


COMMON SUBROUTINES: ~“"% : 


ALL SUBROUTINES NEEDED BY EITHER THE CONTROL ROUTINE OR TEST 
ROUTINES ARE GROUPED TOGETHER. THE MOST eg al SUBROUTINE 

IS THE “ERR “ SUBROUTINE WHICH IS CALLED BY AN “ERRORN™ STATEMENT 
AND TYPES THE TEST NUMBER AND PC VALUE WHEN A FAILURE OCCURS. 


eee ere = -_- 


TC3 = TC1l TEST 3 
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SIRLSER RAL RETRO Res 
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JOl 


.LIST SEQ,LD,BIN,ME 
“NLIST MC,AD * 
ites sUNASSIGNED TRAP 
MACHER: fe ;SP OVERFLOW, BUS ERROR TRAP 
we ;RESERVED INSTRUCTION TRAP 
TRCV:  §V5S s TRACE TRAP 
PRTY7 
IOTV: RSSS s TRAP TO-CALL IOx 
PRTY7 
42 ;POWER FAIL TRAP 
HALT 
EMTV: ENTINT sEMT TRAP 
TY7 
TRPV: #2 ;TRAP TRAP. SIMILAR TO EMT 


HALT 
;LOC 40 THROUGH 376 FILLED WITH .+2 AND HALT. 


pestesecteclerter) 
rStSst 
Eee 
B8eese5 
Oo 


|O—1 4 4 4 4 0 4 4 0 4 4 4 0 


20 
3=10 


So 
Yes KT STS. 
ue 
£ 
Oo 


az 
— 
' 

~ 
ee 


~ 
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=BIT3 


WRTM=B1T3!817 1 
WDATA=BIT3!BITe 
WALL=BIT3!BITe!BIT1 
DO=BIT 

UPS=BIT7 

ILO=BIT1e 

Pan BIT11 
EMTX=0 

SAVSS=3 





TC3 = TC1l TEST 3 MACY11 27(732) 10-SEP-76 15:51 PAGE 11 
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489 000004 | RSTSS=4 


490 3 
;GO TO START OF PROGRAM. 


;BYPASS INITIAL PRINTOUTS. 
REGISTER 


eperaretrrear fii) 


BESSSSsS8ssssssssssssssess 


ul 
Oo 
-_ 
Statat=tat=t=) 
SSS aa 
Matetatas 
rw 


oO 
& 


CONT AINS ACC 

;CONTAINS © OU 

;CONTAINS CURRENT SCOPE POINTER. 
000000 


000000 
000000 
000000 


Seen eins 


ROR DROSERSROR 


o 
o 
£ 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


ee 
00 NOU .£ Wrur-O 


ttstitt dt 
SNe 


RRS 


CHAINN ;POINTER FOR EMT CALL SCOPE 
SRSETT ;POINTER FOR EMT CALL SRESET 
Sv03 ;POINTER FOR EMT CALL SAVO3 
RSO3 ;POINTER FOR EMT CALL RSTO3 
sv0S ;POINTER FOR EMT CALL SAVOS 
° RSOS ;POINTER FOR EMT CALL RSTOS 
001116 ; SvO0SS ;POINTER FOR EMT CALL SAVOSS 
001120 “ RSOSS ;POINTER FOR EMT CALL RSTOSS 
001122 ; TYP ;POINTER FOR EMT CALL TYPE 
001124 : ERR ;POINTER FOR EMT CALL ERROR 


ttt 
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S45 


001126 


901130 


001132 
001134 


- 001136 


001140 
001142 
001144 
001146 
001150 
00115e 


001154 
001156 


001160 
001162 
001164 
001166 
001170 
001172 


001174 


001176 
p01200 
po1202 
001204 
001206 
po1210 
oo1e12 
p01214 


MACYL1 27(732) 


002474 

002436 _* e 
ooe4s2 Ct 

002374 

003142 

003532 

003514 

003626 
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ERRN 
CHLT 
EHLT 
STTCV 


" DLY 


STCOM 
STATS 


“STPDT 


CKER 
CKERZ 
SDTRG 
RWIND 
WINDD 
NOINTR 
RNOBK 
ROBK1 
SRCHFF 
SRCHRR 
WNGBK 
RNGEN 
CFPC 
WOATF 
WOATR 
RDATF 
RDATR 
CWCBA 
CLEARR 
FILLL 


sPOINTER FOR EMT CALL ERRORN 
sPOINTER FOR EMT CALL CHALT 
sPOINTER FOR EMT CALL EHALT 
;POINTER FOR EMT CALL SVECTR 
sPOINTER FOR EMT CALL DELAY 
;POINTER FOR EMT CALL SETCOM 
sPOINTER FOR EMT CALL STATUS 
;POINTER FOR EMT CALL STOPOT 
sPOINTER FOR EMT CALL CKERR 
sPOINTER FOR EMT CALL CKERRZ 
;POINTER FOR EMT CALL SAVDTR 
;POINTER FOR EMT CALL REWIND 
sPOINTER FOR EMT CALL WIND 
;POINTER FOR EMT CALL NOINT 
sPOINTER FOR EMT CALL RNOBLK 
sPOINTER FOR EMT CALL RNOBK! 
sPOINTER FOR EMT CALL SRCHF 
sPOINTER FOR EMT CALL SRCHR 
sPOINTER FOR EMT CALL WRNGBK 
;POINTER FOR EMT CALL RNONUM 
sPOINTER FOR EMT CALL CNVFPC 
;POINTER FOR EMT CALL WDATAF 
sPOINTER FOR EMT CALL WDATAR 
sPOINTER FOR EMT CALL RDATAF 
;POINTER FOR EMT CALL RDATAR 
;POINTER FOR EMT CALL CKWCBA 
POINTER FOR EMT CALL CLEAR 
sPOINTER FOR EMT CALL FILL 


J 


+ 


ws 


rm 


13 < rt fe 3 


DZTCCA.P. 


603 


COOrrrrnrnca 
Ob hb ae be po 
WONOWMCWMH-O 


CORRE 


<= 


Estaesesiaeotaeatiae tube 


oow4uy 
oo4es0 


003232 
003744 
005370 
003000 


6 003016 


005400 
oos4ee 
003276 
003404 
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012706 001000 


012767 o00402. 
112767 tet | 


012700 
005267 


010 


00001 


0 
042757 177770 
104060 


000431 
alta 
002 


000437 
OpREee 177442 
Tahoe 177432 


12777 


013350 17 
Thinse 177777 | 177420 


10401 
000015 


1370 ’ 


177562 


oo00de 


7430 


032777 100200 177402 
001774 
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START: 


BINFLL 
QATCK 
DTCKI 
INBINN 
GTBINI 
PRENDZ 
RDTFX 
INRNON 
RNDFLL 
“WORD  SQDRV 
“WORD  SELDRR 
“WORD  OACNVV 
“WORD  BOCNVV 
MOV #SPBOT, R6 
C RTNNO 


—“OrnOr+ 
WBDwiwauw 
“4040-4 


sieisi et 


4O4828 


;POINTER FOR EMT CALL BINFIL 
POINTER FOR EMT CALL DATCHK 
sPOINTER FOR EMT CALL DATCKT 
sPOINTER FOR EMT CALL INBIN 
POINTER FOR EMT CALL GETBNI 
POINTER FOR EMT CALL PRMEND 
POINTER FOR EMT CALL RDATFX 
;POINTER FOR EMT CALL INRND 
POINTER FOR EMT CALL RNOFIL 
POINTER FOR EMT CALL SEQDRV 
POINTER FOR EMT CALL SELDRV 
POINTER FOR EMT CALL OACNV 
POINTER FOR EMT CALL BDCNV 
;SET BOTTOM OF SP STACK. 
;TYPE TITLE. 


;PROGRAM LOADED VIA MONITOR? 


B STR 
; ROUTINE we DETERMINE, TRANSPORTS’ AVAILABLE FOR TEST. 


DTRMN: 


SQDRV1: 


MOVB.. #376, UNITS 
MOV #8. RO 


SQDRVI 
#177770, SQDRV1- 


DTRMNA 


OTRMNB 
MOV #WBUF, JTCBA 
MOV. #1, atCwc 


SETCO 
ladle Ie 


DTRMNB 
BIT #81715+B1T7, aTCCh 
- BEQ 6 


;ASSUME DRIVES 1-7 AVAILABLE. 
3SET UP TO TEST 8 TIMES. 


; SELECT o. ror 


UNIT NOT TAVATLABLE RETURN. 
REWIND TO REVERSE END ZONE. 


har RETURN. 


;END ZONE? 

:BR_IF NOT. 

SET CURRENT fOOR. 
SET WORD COUNT 

;YES. ISSUE WRITE DATA COMMAND. 


;ERROR RETURN. 
;WAIT FOR ERROR/READY. 






+ 
ae 
“43 
a 
-4 


‘2 
o-- p= 
e-p-- 





eel peed ed ed 
coe 
bo 
£ 


$wonwiviH 


sara 
££ 


> 0-6 - 6 ~~ » ~ B= 9 ~~ bop op 


ay: 





e 
£ 


00 
z 
ae 
i 
ets 
ae 
mata" 
Bias 
aes 
Me 
001536 
091540 
001542 
Roteue 
1S46 
001550 
001556 
001560 
001562 
£34 001564 
695. - 001566 
696 901574 
637 001602 
698 001610 
693 OO161E 
700 O0lbee 
701 OC1624 
702 O0ibe6 
703 001630 
704% OO163¢ 
705 001636 
706 OO1644 
707 O01646 
708 001650 
709 O0i654 
7190 01662 
711 OO016 
O01 





“Oo 
mus 


ee 


oe 


MACYil é 


177374 


177442 


176014 





ee 7 722) 


177340 


177419 
oe 


00S261 


177312 


176160 


175724 


175706 
177146 


DTRMNA: 


DTRMNB: 


DTRMNC: 


CPENA: 


_ CPENB: 


STRTA: 


GETRDY: 
GTRDYX: 


GTRDYA: 
GTROYB: 


. GORUN: 
GTROYC: 
GTRDYO: 
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aTCcM 
DTRMNB 


RO 
OTRMN 
UNITS 
fesse 


EXIT 
eerfizeertu, arcdf? 
oF RIN “BR I 


i TYPE NON AVAILABLE MESSAGE. 


-IL0 OR SELE ERROR? 
F NOT. 


pavagct, UNITS ;DESELECT NON AVAILABLE TRANSPORT. 


#1,CPENA 
PC TR 


UNITN, RO 
67AB(O)  GTAPES 


th 
CTRS 
CPENA-2 
GETROY 


SR, UNITS 
STRTA 


#1002, ERRND 
KSTART, NXTST 


sPRTY7, PSW 
8SPBOT,R6 


R7. FORD 
weiT9, SR 


rad ST 
RTNNO, SR 


UN’ 
a4 NXTST 


TROYA 


TYPE UNITS TO BE TESTED. 


;CHECK UP TO 7 UNITS. 


SELECT ORIVE. 

sUNIT 10) TO BE E UBELECTED. 
SUCCESS: mee we 
:GET ASC ¥. SNS Te «i 


;UPDATE TO NEXT DRIVE. 
ieee TF note ORTVES” 


YES. 
TYPE UNIT SELECT INSTRUCTIONS. 


;WATT FOR 

: GET UNI TS TO TEST. 

-BR IF NO UNITS SELECTED. 
; TYPE S& OPTION MESSAGE. 
;COMMON HALT. 


;ALLOW ERROR PRINTOUTS. 
;ADOR OF st ROUTINE TQ NXTST 


: al 

tSET BOTTOM OF STACK 

STSSUE RESET. 

SINITIALIZE BINARY COUNT, 

IPRESET OT INTERRUPT VECTOR TO 0. 
sROLL FORWARD 0 "NEXT= ROUTINE. 


3¢ CK see ROUTINE SWITCH 
H IF SELECT ROUTINE et TCH IS SET. 

iSELECT SEQUENTIAL DRIVE. 
:G0 R N CURRENT ROUTINE. 

RE RTNNO TO SR. 
: BRANCH IF ROUTINE FOUND. 

CHECK FOR LAST ROUTINE. 
‘BRANCH IF NOT LAST ROUTINE. 









TC3 = TCll TEST 3 
DzT cca. 


ear 


0 9-29 --9— p- p> 
OUD ~ MPU 6 is 


~I-IN9~9~9~9~ 9-9-9 a 


7e3 
785 
é 
726 
737 
728 
739 
7 
1 
733 
734 
735 
735 
737 
738 
733 
oat 
742 
743 
744 
745 
m3 
748 
745 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
| 71 
762 


763 





n 

p-- 
IO 
oz 


& 


“I~ 
oo 
ore 


sages 
JJ iaetaadasaieass 


5 
: 


one 


tee Rivne Rak 
PRES RRBRRE FSR 





b= 

ru 

a | -~ 
reas 


SO8o8Re 
ies 


8 
sae 


Oo 
ee 
ore 


se 


[858 
mae 


e 


™“ 
~ 
oO 


i 


ee 
patty 
NNNNN 


Qovod00000 


as & 


016000 
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176722 


oo0dde 


171102 


177766 
177766 
ocoo0e 


175636 
175620 
175602 


175564 


' 177024 


000240 


176720 
178452 


O004e 





CHAINN: 


CHNC: 


LOGIC: 


HERE : 


FORWD: 


MO 
FORWDA: 


ENT 


$V03: 
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Sage anse 


aie 


<o-1 


RTS R7 
;EMT prey METER ROUT TE. 
MTINT: MOV RO,- 


RTS 0 
SAVE we 0 T0 SeverourNe. 





; TYPE INCORRECT RTN SELECTED. 


SARE NER 


;RESET STACK. 

: INCREMENT ITERATION COUNT. 
BR IF RESULT 

RESULT O. RE ?" ICNT TO -1. 
; CHECK FOR SCOPE OPTION. 


* 


ao 
< 
5 
z 


T ROUT 


Ye 

mn 

x 
x 

cia 

“7m 

rm 
m 
ao 
par 

-— xe 
4 
=z 


SBRANCH IF NOT LAS 
'TYPE PROGRAM END BE 


;GET CONTENTS OF 4e. 


;BR IF ZERO. 
NON-ZERO. ISSUE RESET. 
RETURN TO MONITOR. 


;ANY UNITS AVAILABLE FOR TESTING? 


TEST. 
LL. 


. INE NUMBER. 

sGET ADDR OF NEXT “NEXT” ROUTINE. 
sGET ITERATION COUNT. 

; T SCOPE LOOP ENTRY POINTER. 

: OF NOW nn TEST TO CURTST. 


“FORM EMT ADDR. 
360 TO EMT RTN. RESTCRE RO. 


;MOVE PC _UPSTAC 
MOVE STATUS UPSTACK. 









“j 


eo 


OWooIn 
Lo | 
ri 


Bes 


StEtSt Stat =4 
ee eRe 


Rie SEs 


: 


FOUR CROC EEE R LER eee IRR SEB al toll sald 
8 
a 


pStattat a t=t=tat=tat=t=tat i 
pais 


QOONOOVBOO000000 


WDMDwWwDwmwMmwwnM 

02 b= 2 0 0 a 

WONMU£CWwr-O 
: a 


Be 


cee 


RRR 
wre 
oo0o0o0 
eee 
eee 

Eo 

oo 


000240 000036 


oocgde 000026 
177762 


177763 


000020 


177762 
177762 


177772 
177772 


000010 


000010 


177772 
177772 


MACY11 27(732) 10-SEP-76 15:51 ran is 


tn em 


RTI 
;SUB_TO SET RS I 


= 


man 
Sa PF 


: SUB io RESTORE 
SoS: POPSPe 


COrrura 


| ie te he he ee eet 
we ewe we ee 
-_* +++ e+ + 


SCRBSALS 


LVI m= 









8.10 SAVE ae NOP T vise AND PLACE ENT PC IN RS. 


BR eV 
Sipe. TO SAVE RECS sh 
MOV RTI 
i: 


;MOVE PC AND PSW UPSTACK. 


;RTI OR NOP. 
EMT PC TO RS. 


sEXIT. 


;RESTORE REGS 0 TO 4. 


;MOVE PC AND PSW DOWN STACK. 


AND restone REGS OT 


0s. 
;SET EMT PC TO RS CONTENTS. 


;MOVE PC AND PSK DOWNSTACK. 
sEXIT. 
;PC AND PSW UPSTACK. 


;SAVE RS. 
;SAVE RY. 


;EMT PC TO RS. 
sEMT PC TO RY. 


;EXIT EMT SUB. 
sRS TO EMT PC. 


RESTO 
RESTORE RS RS. 
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: 


RTI sEXIT. 
GROUTINE [0 SET TC11 INTERRUPT VECTOR AND PRIORITY 
STTCV: “SAVOSS 


ee 
= 


176414 TCVTR s VECTOR TO Ri. 
V (5)+, t1)4 -SET DESIRED VECTOR. 
176410 fav ce TCLVL, (1)+ -SET TC11 PRIORITY. 


R 
UES TSH 
ov aSeSe5,, RO 


/ COM 
MOV 


f 


SESE S 
a5 


—~— OOO 
5% 

8 fan 
“Jee 


2 
Bs} 
88 


"RESTORE RO. 
i BPePLAvED. EXIT. 
CO 
HLT: 
;DEVELOP ADDR OF CALLER. 


| HALT SHALT CALL ADDR IN DATA LIGTHS. 
| Beyess EXIT 


| RTI 
-CONDITIONAL ERROR HALT ROUTINE. 
EHLT: | TST SR ;CHECK FOR HALT ON ERROR. 
EHLTA ; BRANCH IF NO HALT DESIRED. 


T ;HALT. 
EHLTA: ;IN DATA LIGHTS. 
000204 ERR: #406 , ERRNB ;SET UP FOR SINGLE ERR MSG. 


na ERRN+ 
000174 ERRN: SNP, ERRNG sSET UP FOR MULTIPLE ERR MSGS. 


;ALL STOP. 
RY, FPC 5 ER ERT CALL ADOR OF SUB CALLING. 
;CONVERT IT TO ASCII. 


Beles i 


;SAVE REG SS 
;DETERMINE CALLING ADOR. 
;CONVERT CALLING ADDR TO ASCIT. 


;CONVERT TEST # TO ASCII. 


;CONVERT ICNT TO DECIMAL ASCII. 


a 


Hea 
4 
ee 
842 
Baa 
= 
g 
; 850 
es 
8S3 
eS: 
e 
‘ oe 
= 
ee 
E 
875 
8 


;CONVERT UNIT # TO ASCII. 


S338 





.¢ 
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DZTCCA.P11 . 
881 go2s74 194061 ORCNY sCONVERT BLKRQ TO ASCII. 
882 76 001062 BLKROQ 
833 ? ABLKRG 
Bed Bacny sCONVERT TCST TO ASCII. 
896 1052 TCSTT 
887 002610 006140 ATCST 
eee BOSE LS DUDES NV CONVERT TCCM TO ASCII 
S33 Bosete doroen SCENT 
891 . 002620 006123 ATCCM 
Bas Bosess TpsoeT ACNV _ sCONVERT TCDT TO ASCII. 
894 ‘002626 ° 001054: TCOTT 
895 002630 OD606S ATCDT 
agg Oop 32 O00006 
897 104061 sCONVERT TCWC TO ASCII. 
898 002636 001056 TCWCT 
899 002640 1 ATCWC 
300 coebHe oo0006 6 
901 44 104061 OACNV :CONVERT TCBA TO ASCII. 
902 46 001060. TCBAT 
a4 ane pee 
905 002654 Ole767 o05464 o00012 MOV #EMO. ERRB TYPE ERR HEADER wis IF NOT INHIBITED. 
906 pusees 02 | 174700 ERRNA: BIT #81T13,SR HINMIBTT ERR 
907 70 001002 ; ERRND: BNE ERRNB :BR NBIT. 
908 O02672 104010 TYPE : TYPE Mec 
909 74 ApaboG ! ERRB: OPEN “DESIRED MSG_ADDR GOES HERE. 
910 7 goge4g ERRNB: NOP "NOP FOR MULT MSG,OR 406 FOR SINGLE MSG. 
Sil | 12567 177770 MOV (5)+, ERRE GET ADDR OF NEXT’MSG. 
912 022767 177777 177762 CMP #-1,ERRB : TERMINATOR? 
913. l2 001363 BNE ERRNA :GO TYPE IF NOT TERMINAT 
914. 14 104014 ERRNC: EHALT END OF MSGS. HALT IF REQUIRED 
915 16 o00004 RSTSS ;RESTORE REG SS. 
916 002720 o00002 RTI EXIT EMT SUB. 
917 : RANDOM NUMBER GENERATOR. ROUTINE EXITS WITH NUMBER IN REGISTER 0. 
918 O02722 104006 RNGEN: ;SAVE REGS 0-SS 
919 002724 016700 ooco44 Sov RP1,RO 
$20 002730 0061 pe ROL RO 
921 002732 906100 ; ROL 
G22 002734 O66 o00036 ADD RP2, RO 
823 002740 010067 000030 | MOV RO, APL 
ed 100 ROL RO 

10¢ ROL RO 

926 002750 -oo0022 ADD RP2,RO 
827 002754 006100 : ROL 
eee my EE ae 
930 oes ee4 167e5 O00004 MOV RP1,(S5)+ ; STORE # AT LOC FOLLOWING SUB CALL. 
931 002770 104007 RSTOSS - RESTORE REGS O-S5S. 
932 002772 o00002 RTI -  SEXIT EMT SUB. 
833 0020774 001233 RP1: 1233 
934 002776 007622 RP2: 7622 
935 EMT SUB TO INITIALIZE RANDOM NUMBER SUBROUTINE. 
$36 003000 012767 001233 177766 {NRNON: MOV #1239.RP1 : 
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TC3 = TC1l 

OZTCCA.PLL 
$37 -003006 012767 007622 177762 MOV #7622, RP2: 
§38 002014 000002 RTI -EXIT. 
939. EMT SuB_19 TO pdt AREA WITH RANDOM NUMBERS. 
au BRaRAR Reve (5)+,RO s STARTING ROOR TO RO. 
942 0030ee 01250! ae ‘ HOV (5)+;R1 sCOUNT TO B 

aug vee | BNBELB: BRP Ger par. Sumer STORED HERE. 
945 003030 016720 177772 HOV RNOFLB, (0)+ *STORE NUMBER PER 
aus Bosose ObLa7e BFE RADFLA iRONE? or. 
948 003040 104007 RSTOSS is 
949 03042 RTI -EXIT EMT SUB. 
950 -SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
91 gg30v 104006 tyP: - Savoss : 
952 12500 tis MOV (5)+,RO ;ADDRESS OF MESSAGE TO RO. 
953 003050 112001 : TYPA: MOVB (0)+,R1 GET CHARACTER 
954 003052 001006 BNE TPC’ t BRANCH IF NOT TERMINATOR. . 
955 112701 000177 MOVB  #177,R1 :QUTPUT RUBOUT. 
aor fosoes soupy eo ies ere 
959 SOSDEE bocobe aH | ; TERMINATOR ster. DONE. EXIT. 
959 003070 122701 oo004sS TYPC: CMPB 4#4S.Ri ; CHECK 
ay BOE vines, pooo02 Ree LP PD sean Je IN TYPDAT 
aes Seatas poavee BR TYPA 
963 003104 110177 175714 TYPD: MOVB  R1,aTPB OUTPUT. CHARACTER TO PRINTER 
964 003110 105777 175706 = TSTB aTfs *WAIT FOR DONE FLAG. 
965 003114 100375 
966 003116 000207 RTS sEXIT | 
967 003120 112701 oo0o15 TYPF: MOVB Rs RI ‘MOVE CARRIAGE RETURN CODE TO TYPDAT 
968 003124 004767 177754 JSR R7. TYPD :GO TYPE CHAR. 
969 003130 112701 12 TYPG: MOVB 4#12,R1 MOVE. LF CODE TO TYPDAT. 
970 003134 004767 177744 JSR 8” tyPp :G0 TYPE CHAR. ten 
971 003140 000743 BR A 
972 SUBROUTINE TO DELAY 
973 003146 DLYRO=DLY+ 
974 003160 B yRy DL YAeY ard 
875 o03i4e Cleve? 000372 ccCcce DLY: MOV #250. , #0 DELAY COUNT TO DLYRO 
976 003150 O0S067 174622 CLR PSid SET PRIORITY 0. 
977 003154 012727 001750 OOD000 DLYA: MOV #1000. , #0 1 MSEC COUNT TO DLYRI. 
978 003162. 7? 177772 DLYB: OLYRI s DECRENENT 1 MSEC COUNT. 
879 003166 001 “BNE OLYB BR IF NOT O. 
980 003170. ? 177752 CS DEC DLYRO sDECR MENT DELAY COUNT. 
981 003174 001367 BNE OLYA : NOT DONE DELAYING. 
982 003176 RTI *EXIT. 
$83 -SUBROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
984 003200 012767 177777 000016 {NBINN: MOV SET ALL VARIABLES 
98s 003206 16767 090012 o0001e2 RiNd Pr 
986 14 016767 000004 d00006 MOV ft PT] 
987 003222 RTI EXIT. 
988 003224 o00000 RIND: OPEN 
989 0032c¢6 O00000 pT b: OPEN 
230 003230 000000 OPEN 

1 POpECTAL BINARY COUNT PATTERN SUBROUTINE. EXITS WITH BIN CHAR IN RO 

992 903232 016767 177770 177770 &TBINI: MOV PTO,PTL PREVIOUS BIN CHAR TO PT1 
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iain 
ro 
“uN 


ie 


ES 


oo 
Cet 
oe 


-_ 


Siitiiisiscce rer rt Tee 
2822 
aes 


QOo0RI000000 
a 
R AN 


= = be 
WOonPriul£iITH-O 
2 


oe 


ze 


a3 


Saks 


1 
1 
1 
1 
1 
i 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
a | 
1 
1 
1 
1 
“1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PES SEERA ini bun wesw ciel pani cialy 


a 
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RT 
-OCTAL TO Ascut CONVERT ROUTINE 
bACNVV: SAVOSS 


RTI 
-SUBROUTINE TO MOVE A 
BMOVE: SAVO3 

MOV 
BMOVA: 


RTS RS 
“BINARY TO DECIMAL 
BOCNVV: SavOSS 


e) 
wn 
2+ B 
-_ 


Be 
ne 


OEPBA LARS 
2s 52 & 


vn < 
oF 
+ 


5 
: 


o~ D--De~ 
ao 
eT | Nae 


wonme 
+2 
2S 
~_ 


CII CONVERT’ 


;SAVE BIN CHAR IN PTO 

5 

sEXIT. 

;SAVE REGS. 

-CET OCTAL VALUE. 

eet SEPT NATTON ADOR. 

GET CONVERT COUNT. 

‘DEVELOP ADDR TO STORE 1ST CHAR. 
s ISOLATE LEAST SIGNIFICANT DIGIT. 


;CONVERT DIGIT TO ASCII 
;STORE ASCII CHARACTER. 


;DONE ALL DIGITS? 


$ REGS. 
:GET“FROM" ADDRESS 
; get TO RRORESS 


ey 
SERS 
a 


Z3 
5° 
@ 
c 


ace-* 


TRACTED VALUE. 


ewewe 
BSS4 
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1049 003456 012502 MOV (5)+,Re GET # OF DIGITS REQUIRED. 
ier fosues feusat pocnvo: fovea bs ec1) ‘te HET RBeCTER 
{hed BRSGPS vo: pees | ‘Done? 
1053 003466 001375 BNE BOCNVD :BR IF NOT. 
1054 29 RSTOSS sRESTORE REGS. 
o 
is 74 TENPUR: ie 
1 144 100. 
1088 003502 000012 10. 
pe? Makan sae O40 O40 DECVAL: .BYTE 040,040,040,040,040, 040 
106¢ 003511 040 O40 040 ats i sie, i " 
1863 onasiy o177e7 17ee64 7saan EFitsh MOY GHEST.TeeTT SAVE TosT 
1066 Bose38 Bhaobs RTI ‘EXIT EMT SUB. 
1067 } -EMT SUB TO ISSUE DT COMMAND SPECIFIED AT CALL+2. 
1068 003532 000003 __ STCOM: SAVSS 
1069 003534 016767 175324 175330 MOV UNIT, COMND UNIT # TO COMND. 
1070 003542 O42767 174377 175322 BIC #174577, COMND 
1071 003559 0S2567 175316 BIS (5)+.C sSET SIRED OMMAND IN COMND. 
1072 016777 1753le 175224 MOV COMND. JTCCM 
1073 003562 175216 BIT SBTTIStBIT7, aTcc cht COREADY AND ERROR BIT CLEAR? 
1074 003570 001414 BEQ STCOne sBR_IF YES. 
1075 0057 032767 000001 175272 B #8IT0, COMND WAS THE DO BIT SET IN COMND? 
1076 001410 “. BEQ STCOMB 3BR IF NOT. 
1077 . 003602 104020 STATUS SAVE S 
1078 003604 1Ougie ERRORN * ERROR. 80 IT FAILED TO CAUSE CLEARING 
1079 003606 00671 FPCMSG 
1080 003610 006346 STCMSG , OF READY AND/OR ERROR BIT(S). 
1081 O03612 006115 STAT ; 
1082 003614 177777 oe ae 
1083 00361 000004 STCOMA: RSTSS 
pee Se yoe STcome: tet (5) SEE UP OK EXIT. 
1086 pp3e54 ppB75a STCOMA 
1087 -EMT SUB TO STOP ALL DECTAPES. 
1088 003626 042777 000116 175152 STPDT: BIC #116, aTCCM ; ISSUE SAT <formano. 
1089 003634 o0000e . RT igxIT ENT SUB 
1090 -EMT SUB TO CHECK FOR ERROR. (ENOZ IS CONSIDERED AN ERROR). 
1091 003636 RIG SS: eKER:  SAVSS 
1092 003649 104020 STATUS VE STATUS. 
1093 42 005777 175140 TST aTCCM tPRROR BIT SET? 
1094 O03646 100416 BMI CKERZD BR IF YES. 
1095 SO 005725 TST (S)+ . SET UP OK EXIT. 
1h oak enti EMT sua to aK EGA DECTAPE a OR END ZONE. 
132 003654 000003 CKERZ: Sayss 
150 Soaeee  aDSTyy 175122 He TCCM RR a 1 Users 
tbh _ aKERIC c mop cir 
1102 66 7 S (Se . SET UP OK EXIT. 
1103 003670 005725 CKERZA: TST (5)¢ 


003672 000004 CKERZB: RSTSS 


JOe2 
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1105 003674 000002 RII EXIT EMT SUB. 

110 002676 005777 175102 CKERZC: TST arcsT t ENDZ BIT SET? 

11Re en 1800, CKERZD: Bo oRN RE Eey® ERROR. 

1109 _ 006713 FPCMSG 

HP Seals See ae 

tite aos 1s = 

111 16 hoares 

HHS aazen guar azn azn Bt SGI TGR TOE 

tite if 7? 175062 122 MOV ie TeDTT Save TCOT. 

1117 003734 017767 1750S2 175116 

1118 003742 o00002 RI tEXIT EMT SUB. 

111 -EMT SUB TO REPORT mmanee END2 DETECTION. 

1120 003744 000003 PREND2: SAVSS 

1121 00374 104012 . ERRORN ;PREMATURE ENDZ DETECTED. 
1122 003750 EMSG6 

lle3 BLKSB 

1124 003754 11 STAT 

1125 003756 net =I 

1126 003766 104000 SCOPE 

1127 MT SUB TO MOVE TAPE TO FORWARD END ZONE. - 

1158 003762 012767 oo0002 coD012 fINDD: MOV #RNUM! FLD, RWINDV sSET UP WIND. 
1129 003770 os BR RWI 

1130 : -EMT SUB TO MOVE TAPE TO REVERSE END ZONE. 

dish Bos77e O4e767 GONOGE “OOOQ02 FHIND: HOV, SRMUMIREVFOINOV |e ite UNTO: . 
1133 004002 do0on RWINDV: OPEN 

1134 OO4004 104000 ;SETCOM ERROR. 

1135 004008 005777 174774 TST aTCcm “ERROR BIT SET? 

ll l2 100375 4 IF NOT. 

113? oo¥014 194020 STATUS YES. GET STATUS AND STOP. 
1139 ite Apogee 175026 fof TCSTT ;WAS ERROR DUE TO ENDZ? 
1140 004024 100407 BMI RWINDC *BR IF YES. 

1141 004026 000003 SAVSS 

1142 004030 104012 ORN NO. DECTAPE ERROR. 
1143 004032 006713 PCMSG 

1144 004034 006167 DTERR 

114S 004036 006115 STAT 

1146 OO4O40 177777 =] 

1147 OO4042 104000 SCOPE 

148 004044 RWINDC: ut 

114 -EMT SUB T HANDLE FAILURE T0 INFERHUPT. 

1150 OO4046 000003 .. NOINTR: SA 

1151 04050 104020 ;SAVE STATUS. 

1152 O04052 104012 :DECTAPE FAIL TO INTERRUPT. 
_.1153 004054 006713 FPCMSG 

1154 004056 006150 INTEAL 

1155 004060 006115 STAt 

1156 OO4062 177777 -1 

1157 OO4064 00004 RGTSS 

1158 004066 od00002 RI EXIT EMT SUB. 

115 T SUB TO GENERATE RANDOM BLOCK #, AND STORE AT BLKRO. 
1160 004070 026727 174766 001101 iADBK; CMP BLKRQ, #577. VALID # IN BLKRQ? 
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RNOBKK ;BR IF 
#B81T11,SR iRENOOM 8 it vhestRED? 
RNOBKK 


RO. TE eYAIN SAME BLOCKs. 

GE RON ER ene. 
#176000,RNDBKA 
RNDBKA, #1101 sUMBER BALI BLOCK NUMBER? 
Ri‘OBKA, BLKRQ iYES. NUMBER TO BLKRQ. 


GENERATE RANDOM socks’ ato eT ORE TA AT BLKRQ. 


| 


004000 173462 


00 > ph pe pe 
— bo po pe 
3SGE-h Lore 


fe 8989 


paces 


= bb F— — b— 9 
SERVScRSRS 
2 
ee = 
ti 
HO-+1-4 


176000 
177764 


3 
oe - 
Sma4Sae 


= Es 


'€3 GENERATE ANOTHER. 
D #. RANDOM NUMBER CHANGE? 
F_RANDOM # IS DESIRED. 
KEEP SAME NUMBER. 
T RANDOM NUMBER. 
;RANDOM # IS STORED HERE. 


8 <3? 
# IS <3 GET ANOTHER. 
ARGER THAN S74.? 
IF LARGER. 
eu NUMBER TO BLKRQ. 


jENT a8 “T0 CHECK EXPECTED DATA AGA NST ACTUAL DATA AND REPORT ERRORS. 
bTCk #022041,DTCKBA ;SET UP TO INCR EXP ADDR, DECR ACT ADDR. 


;SET UP TO INCR BOTH DATA ADDRESSES. 


;GET EXPECTED DATA ADDR. 
GET ACTUAL DATA ADDR. 
:GET CHECK 


HINEDEOE 
Ree 
eno =e 


az 
+ 


Sere ee geraes 
So BnoRe 


= 
o 
N 


an fas 


Bee 


bb b= BB hs th fb be b= be Pe bo Bb bs he 2 be hs pe 
N 


SSVFA LOO LS SSVRRIG—BIaNaat Land 


O0O000r-oO 


;SET CURRENT WORD # TO 1. 

sERROR LIMIT TO Ra. 

; COMPARE Nes AND EXPECTED WORD. 
BR IF EQUAL (OK). 


—OO 
Foo 
or ReoS 


;CONVERT EXPECTED DATA TO ASCII. 


;CONVERT ACTUAL DATA TO ASCII. 


SOBNRRESRSS 


;CONVERT WORD # TO DECIMAL ASCII. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


rurorururufy 
eh ee 
OuWcwrure 


ERRORN . sDATA ERROR. 
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Beaty 


0 02 2 bn 0 po hs F 0 pe Fw Pn ae po pe 
tururururururur 


fururu 


DOVE Or ue 


1240 


SORE Oe ees 


rororu 
Re 


bs b= b= bh bbb Fb bt bb Ob he FB bh pert 
o 
uw 


006713 
006200 


25 
ata 


Bee Face g 


oss ee es 
eee 


—-[00~— 


016720 177772 


000003 
012567 174374 
ane797 174302 
* 07 


~—— ee ee eds 
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FPCMSG 
BLKSB 
_ DATERR 
C R3 sNTH ERROR? 
BEQ DATCKC ‘BR IF YES. 
TCKB: INC DATKNT INCREMENT WORD NUMBER. 
TCKBA: OPEN a sear E DATA ADDRESSES. 
DATCKA . F-NOT DONE. 
DATCKC: RetOSS Be JF 
*EXIT. 
DATKNT: RPEN 
;EMT SUB TO CLEAR SPECIFIED AREA TO 0’S 
GLEARR: SAVOSS 
A Sod :GET STARTING AOOR. 
CL 333° OF ag WORD. 
DEC Ri : DONE? 
BNE -4 ;BR IF NOT DONE. 
Toss sDONE 
EMT SUB TO FILL AREA WITH SPECIE TED VALUE. 
a SAVOSS 
MOV (5)+,R0 GET STARTING ADDR. 
MOV (5)+')Re GET VALUE. 
MOV (5)+ RI GET COUNT. 
MOV Re, (0)+ *SET VALUE IN WORD. 
DEC Ri ; DONE? 
BNE 4 *BR IF NOT DONE. 
RSTOSS * DONE 
RTI EXIT. 
-EMT SUB TO FILL AREA WITH BINARY COUNT PATTERN. 
BINFLL: SAVOSS 
MOV (5)+, RO GET STARTING ADDR. 
MOV (5)+,R1 GET COUNT. 
BINFLA: GETBNI GET BINARY WORD. 
BINFLB: OPEN *BINARY WORD IS STORED HERE. 
NOY BINFLB, (0)+ ; STORE WORD. 
BNE BINFLA BR fe NOT DONE. 
RSTOSS * DONE 


RTI EXIT. 
sEMT SUB TO CHECK THAT WORD COUNT IS 0, AND THAT TCBA CONTENTS 


*MATCH THE EXPECTED CONTENTS. 
GWCBA: SAVS 
MOV (5)+, TEMP GET EXPECTED TCBA CONTENTS. 
SAVOTR “SAVE TCWC AND TCBA. 
ST aTCWC *WORD COUNT 0? 
BEQ CWCBB *BR IF O (OK). 
ERRORN WORD COUNT NOT 0. TYPE 
FPCMSG CONTENTS OF TCWC AND TCBA. 
WCNOTO 
TCWC 
CTCBA 
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1273 O04Se4 104000 SCOPE 
e 026 174342 174256 CWCBB: ‘TEMP. aTCBA s Ieee AND EXPECTED TCBA SAME? 


cucat Be TEONVERT EXPECTED TCBA TO AS ; 


% 


TCBA DOES NOT MATCH ExPECTER 
ITCBA CONTENTS. ant’ Jere TCee, 
facTUAL TCBA, 


CWCBC: 


EXIT. 
-EMT SUB TO HANDLE WRONG BLOCK # FOUND. 
wns VSS ane 81 


ATUS. t 
; WRONG BLOCK NUMBER FOUND. if 


RRP SES 


ru 
® 


T EMT SUB. 
“EMT SUB TO CON EF Lae A RouTiné Ag CARED FROM TO escr « 


CFPC: MOV 
OACNY CONVERT TO ASCIT. 
FPC 
AFPC 


$y 


Briton taicint- 


TT eT a eT eT a 
WOONCHU£ WIT 


;EMT SUBS B"fo SEARCH FOR DESIRED. BLOCK AUMBER SRCHFF )wETS  ORW 
{BLOCK NUMBERS. SRCHRR GETS REVERSE BLOCK NUMBERS. f 
SRCHFF Fi CLRB aren D EROET FORWARD INDICATOR. e 


B : ‘. 
SRCHPR: DIRIND ;SET REVERSE INDICATOR. ~ 
SRCHA: ESRCHCATCVTR :SET INTERRUPT VECTOR 10 SRCHC. 4 
5 REVONT :SET M a OF REVERSALS ALLOWED 
:SET REV BIT IN SRCHH 
sBEV TT get IN TCCM?” Ri 


eV, :NO. TOLERR REV BIT FROM SRCHM. 
SRCHAA: COM START SEARCH. 


SRCHM: 
;G0 TO ERROR EXIT. 


SRCCON: INC ;ISSUE DO TO ENABLE RNUM. 
SRCHB: pe Y TIME OUT INTERRUPT. 


NT sFAILURE TO INTERRUPT. 
BR SREOUT :GO TO ERROR EXIT. 


GIWGIWWULIGWUIGU 


1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SRSOERES 
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1329 004738 012716 O04744 SRCHC: A WSRCHD, (6) Fath iS Seat INTERRUPT OCCURS. 
744 RCHD: POPSP2 ioe 
HE FRCS HR aman 8 FE cy bran 
1333 004752 100003 BPL___ SRCHDA 
ao eee ee 
1337 OON76e be77b7 174026 174072 SRCHOA: cHP STCDT BLKRO 160 creARE BLS IN TeOT TO REQUIRED BLK. 
1339 004772 O03014 BGT § SRCHE iB IF FcoT” NIGH 
Ta) ooscos Dore4e oD TOON BEL SRALAL ATCC COT LH ASTEGD CORRS TAGS SAME. DIRECTION 
1342 005004 062777 000003 174002 ADD #3, aTCDT apd 3 TO feo : 
1343 005012 027767 173776 174042 CMP artDT BLKRO =; LOWER BY_3 OR MORE? 
aug 005022 00737 BR a NOT Eon ENOUGH me TiNue SANE DIRECTION. 
1349 Boss? 001993 re ee Be eet vidi ey <SonTINe DIRECTION. 
1348 005034 162777 o00003 173752 SUB «#3, ATCDT tSueTRACT 3 FROM TCOT 
1349 Obs04e Oeb/77 174014 173744 CHP BLERQ, STCOT ;HIGHER BY 3, OR, MORE . 
1351 00 07 R SRCCON NOT A NOUGH “CONTINUE. DIRECTION. 
133 Boe 30753 oowooo 173724 SRCF: BIT anf 11,TCCM Teor Ae i Ot uit Hi pinecii 
1353” 005062 001007 BNE RCHG ” - VERSE. 
i3es ooso7t  boraig tO BRE” SRCCON gone rane NOT RANTED 
1356 © G0507¢e*. 3 SRCOUT: SAVSS 
1357 005074’ 005725 TST (5)+ ;SET UP SUCCESS EXIT. 
1358 76 . OOOO04 SREOUT: RSTSS 
1359 065100 : 00002 3 | RTI EXIT ENT SUB. 
1360 005102 “105767 000063 SRCHG: TSTB  DIRIN : GOING REV BLK& WANTED? 
(See DOsti8 000704 "BRE BRCCON jm EH 
1363 00511 036777 OO4O00 173666 SRCREV: BIT  ABITI1,ATCCH sREV TT get? 
1364 005120 001404 BEQ § SRCRVB :BR I 
1365 O05ice o4e777 Qo¥000 173656 SRCRVA: BIC — aBITLi, ATCC ZIN REVERSE. SET TO FORWARD. 
136? DOELSe DSe777 OOYOOD 173646 SRCRVB: BIS #BITII,aTCCM  ;FORWARD. SET TO REVERSE. 
1368 005140 105367 O00024 SRCRVC: DECB ——REVCNT FIFTH REVERSAL ISSUED? 
1369 005144 001266 BNE SRCCON :BR IF _NOT. 
1370 OOSi4e 104060 STATUS ?YES, ERROR. SAVE STATUS. 
1372 O0S15e 104012 | RRORN ;BLK# NOT FOUND WITHIN 5 TAPE REVERSALS. 
1374 005156 006200 LKSB 
1375 005160 006672 SRCHER 
1376 O0516e 006115 1 ee STAT ; 
1377 005164 177777 =! 
1378 005166 000743 BR SREOUT GO TO ERROR EXIT. 
1379 005170 000 REVCNT: .BYTE OPEN 
13a Te am ONT SIRS TO-MOATA. ROATA, FORWARD OR REVERSE. 
1382 005172 000003 iRDPR?  gav 
1383 OOBI7H Bles77 173610 Mov (5) aT cue sGET WORD COUNT _AND SET IN TCWC 
1384 005200 017767 173604 000100 MOV  @TCWC,WROFRG © ;2(WORD COUNT) TO WROFRG. 


ee + ss eee 






iz 
an 
2 3 








% 
Btatitar 





0-0 ~ bP 0 ~~ 0 = 9 0 9 - op 


BRRE BBS" 
is 





SRRPERE Re 





1408 





= 6 B-< 0-< 9-- &-< & <® — 6 .- b— 9-2 9. < 9-6-0 


































50 
1439 005452 
440 


MACY11 


173668 


005260 


O0S266 


173512 


000115 
000105 


004115 


004105 
104033 


0091S 


000910 
177770 


005454 


173424 
173417 


002 








e7(732) 


OCOdS 


173554 


177722 © 


1563 eee 
177674 


177664 
177642 
177646 


ooc0de 


173434 


004 
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ASL WROFRG 
NEG aTCWC sIN 2°S orp Ere NT FORM. 
MOV (5)+, 3TCBA : SET IN TC 
ADD QTCBA,WRDFRG § ;2(WORD COUNT)+ CSAS ING. 128 188 CONTENTS. 
WROFRA: OPEN : SRCHF HR 
SPE MUROFRC.aTCVTR TEET RNTCRRCET VECTOR TO’ UROFRC 
SETCOM RT IBETe OR BATE. 
WROFRB: OPEN :COMMAND GOES HERE. 
COPE :SETCOM : 
LAY : TIMEOUT INTERRUPT. 
DELAY ~ 
NOINT sFAILURE TO INTERRUPT. 
WROFRC: HOV SWROERD, (6) PARC WHEN INT RRUPT OCCURS. 
WROFRD: POPSP2 ; cae 
TST aTCcm iB 10% SET? 
BP WROFRF :BR IF NOT. 
CKERRZ :CHECK FOR BRRORS 
SC “ERROR RETURN. 
NOP *END2 RETURN. 
WROFRF: CKWCBA s CHECK WORD COUNT AND CURRENT ADDR. 
WRDERG: OPEN TCBA SHOULD EQUAL THIS. 






sex IT. 
WDATF : nov SUDATALFHO! IE!D0, , WROFRE 
ROATF: MOV #ROATAS FWD? IE!00, WROFRE 
MOV SSRCHP , WROFRA 





BR 
WOATR: MOV SOA TAIREV:TEPDO, WROFRB 
BR RDATR+ 


RDATR: MOV pe lth ER AD WROFRS 
ey sSRCHR, WROFRA 


ROTFX: HOV SROATA? FWD! IE!81TS!B174!00, WROFRE 
-EMT SUB TO SELECT SEQUENTIAL DECTAPE UNIT. 
SdoRV: INC SQDRVA 


#177770, SQDRVA 
SEL s SELECT mt aT iN - pantag IF AVAILABLE. 
SQDRVA: OPEN UNIT NUMBER 
BR SQDRV im t fer TERUBSLABLE:F RETURN. 


RTI 
-EMT SUB 10 SELECT SPECIFIED vectape unit IF AVAILABLE. 
SELORR: SAVOSS 


Sov Set T NUMBER. 

BITB GRTAB TD) UNITS :SEE IF untt AVAILABLE. 

BEQ LORA R IF UNIT NOT AVAILABLE. 
UNITN AVAILABLE. SELECT UNIT. 


MOV RO, 

MOVE RO, UNIT+1 

TST (S)+ ;SET UP SELECTED EXIT. 
SELDRA: Re TOSS 


: sEXIT. 
UNTAB: .8YTE BITO,8171,8172,81T3, 8174, 17S, 8176, 8177 
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as 


EMC: ASCII 
ATNUMB: .ASCIT 


APC: -ASCIT 


$2 = B= PH ~ pope 
£2 
(7) 


4 
5 


AICNT: ASCII 
3 ASCII. * UNIT ' 


AUNIT: .ASCIZ 
AINCRT: .ASCIZ *%% INVALID TEST.’ 


oneeasS s 
RoSSeS 


a 
S a 
‘Ee— 
ow 


8 


PGTIT: .ASCIZ '%%TC3 - TC1l TEST 3%%’ 


- 
SBS 
ri 


8585 
F 
g 


BR 
é 
= 


INST]: .ASCII *“STANDARD TAPES ON UNITS.” 


0-2 0 b+ 0 0 0 60 bh Ps ho 0-0 ho po ho po 


é 
Res 
iz 


Co 


Ere 
ne 

RRS 
baie 
Tur 
Let) 


*“ZREMOTE, WRITE ENABLE.’ 


OS2111 
45 052117 
ae? l 044 


*“HRLLSW: OFF, WRTMSW: OFF.’ 


Se 


O4eSe4 O40 
046102 o54 
Bie bi fe 


‘A 
2 32 


**SELECT UNITS WITH SR7 - SRO. ° 


BERR 


§ 


"PRESS CONTx’ 
*%SET SR OPTIONS. NORMAL SR=0’ 


Fonz Enyses 
. 


RA SARRAGROR 
BN 


ete 

ANS GRE 
2358 
: 


RAL 
SS a | 
ee 
oN 


: .BYTE 
-ASCIZ 
-ASCIT 

-ASCIZ 

ASCII 


-ASCIZ 


eas 


Hy 8. 
Bee2zee27a 


oes 
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. 1497 006057 CTCDT: .ASCII ° TCDT ’ 
1498 Q06064 
1499 ATCOT: .ASCIZ ’ Ss’ 
SBTCDT: .ASCII ° TCDTSB ’ 
ASBTCD: .ASCIZ ’ 
STAT: .ASCII ° TCCM ° 


ATCCM: .ASCII ” TCST 


53 


~p~—p~— 


Bananas 


ATCST: .ASCIZ ’ ’ 
INTFAI: .ASCIZ *%NO DT INTRPT ° 


eee 


I ee ee ek ed ek en ed 


2 
Wee 


.ASCIZ 'xDT ERR ’ 
ASCII * BLKRO’ 

: .ASCIZ ' 

: .ASCIZ 'xTCWC NOT O° 


UnNUN UN UTIL Un nin 
PR 
-— 
~ 
nN 


= > b= 0 bps po pe pe 
WONOUN£Wl-O 


iis 
29 


: .ASCIZ °*X%TCBA WRONG ’ 


a 
§ 


: .ASCII ° TCBA ° 
: .ASCIZ ° : 
: .ASCII °*xDATA ERR WORD ’ 


SsaezERE 


os 
aR 


: .ASCII ° . SB’ 
: .ASCII ° WAS * 


a 


AA aie ttt titi 
Z 


aa 


: .ASCIZ ° : 
STCMSG: .ASCIZ ’*“RDY/ERR NOT O AFTER DO ° 


b+ bb <> = bb — & -2 = b= & PO * F< & = b= & 2 bh Bh fp ~ b= Ps B= ph 2 2 


5 
Se 


R 
be 
ho 
A 


-ASCIZ 'XUPS DIDNT SET ° 


1 
006105 

ll 

li 

1 

1 
peel 
Gos 80 

146 
006150 
006156 
pooled 
~ 006167 
006174 
a 
006217 
OOesss | Oebve 
ooesie 
006250 
006251 
006270 
006276 
006304 
006310 
006316 
006323 
006330 
006336 
006337 
006344 
006362 
006370 
- 006376 
006377 
006404 


oe 


: .ASCIZ *“PREMATURE UPS ° 


Be 
EROE 


-ASCIZ '*XUPS DIDNT CLEAR ° 
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er BIee ok 
seta indians 





? 25 

pian 

22 FR 
Bz 


eee 


& 2 6-- > & = 0 - §— b= b= b— 6 bb ~ & = & = = 9 & = & = b= 9 pe 
babe 
bo ee 
rn 


Hae tate a 


uw 


poeses Seales 


REE 





1 


Bas B Sees 
PRESSES 


Go he ee 


Rae 
BSH 


te 


FES 
5 


047040 





27(732) 


= oe 





020124 
Oe0le2 


esse 


027132 
O47111 


EMSGe: 


EMSG3: 


EMSG4: 


EMSGS: 


EMSGE: 


EMSG?: 
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-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


: .ASCIZ 


ed 


-ASCIZ 
: .ASCIZ 


-ASCIZ 


ASCIZ 


* "BYTE 


- EVEN 








*“RNUM FAILURE ’ 
*“ENDZ. NO INTRPT ° 
*“ENDZ DIDNT SET ’ 


*“ENOZ. UPS NOT O ° 


"“PREMATURE ENDZ. LAST BLK READ ° 


*%INT AFTER BLK 110! NOT DUE TO ENDZ ’ 


*“BLK NOT FOUND. ’ 


un" 
“NO UNITS AVAILABLE. * 


"“WILL TEST UNITS: ° 


0;'1,°2,°3,°4,°S, °6,°7 
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“cAI CY pene meeenerermeSgET OT (A-Team 
: ; * 
} if EBBBRESS OF REST Routine : 
00001 10. TEST ITERATION COUNT t 
007026 AR Pg SCOPE ENTRY POINT ° 


:uEaNaMLeEnnaeanensanansanansaeansneasaeseanesnseansneseanenssesstats 

TEST THAT ISSU -FWD-NO 0 SET 
CHECK THAT ISSUING oor. cone c BUSES Ups f TO. bra EAR. 

ha: #RNUM! F cry 


raat 
a 


SET UP REVERSE RNUM COMMAND. 


33 
~ 
> | 


DO YIU .£ LITHO 


0 0 0 0 9h 9 bp 9 
rowd 


~ 
o 


- 


ABC 
#B8IT7,aTCST 
ABC. 


8 


Boe ran 1 TQ SET TP Tee 


HARORERE VINOD. CHECK R tyPED S STATUS 


g 


b= fp 


; SCOPE. 
; ISSUE SST 


Bs 


on 


2 


Seve ce TCER BRo TCST 
LEAR? 


STATUS 
000200 171652 oy + al ate 


BR TF 
E *ERR a ChESR FAILED TO CLEAR. 
ENS] “AFTER ISSUING SST-DO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


pe Se AA te te 


8 
ee 


¥ 


AC: RTS PC EXIT. 
[ce Nepean if aR 
: Te S ROUTINE * 
10. stpore? FERATION COUN : 
oA et SCOPE ENTRY POINT % 
5 HHHEHEHIHHHHHHHHEHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHHHEEHHH HEHEHE 


:T TEST HRT WHEN me pate ett INTERRUPTS VALID DATA HAS BEEN 
ia: MOV ‘FWD! IE!DO, BBA ;SET UP FORWARD RNUM. 


PC ay 
BRAUN? REV! TE#DO, BBR ;SET UP REV RNUM. 


x 


=e G 


8 


Bare 


Bee yay 
ASLELS 


;SET INTERRUPT VECTOR TO 
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By ;BC. 
177777 = 171574 on. #-1,dTCOT :SET TCDT TO ALL 1 


Ben:  gRUH DVYEEBS, TP heennsees 
: SETCOM 


WAIT 
Ebling 100 R NUN REV! TE%00 FAILED 
; THE RE a IT 13 ft, PRAM on ie 
"TO INTERRUPT FAILURE. 
ee WHEN INTERRUPT OCCURS. 
Tome ACK. 
sE 9 
“HERE IF ERROR. 


| #1, aTCOT we fcot STILL A -17 
BE 


Save COT. 
;TCDT STILL -1. ERROR RNUM FAILED 
-$T0_READ FLOCK 8 # INTO rer OR 
;DATA_IN TCOT IS NOT 
$0 AND 1101. (CHECK T ep TCDT). 


SCOPE ; SCOPE. 
171510 BE: CMP © TCDT, #1101 - ;BLOCK BETWEEN 0 AND 1101? 
, BHI BCA ;BR IF NOT (ERROR). 
BF: STOPOT cole : 
Me iitiiiiitittiiitiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiii tt 


t2: 2 : ROUT Re x 
T3 PORES 3 RENT ROUTINE % 
10. TEST ITERATION COUNT * 
:SCOPE ENTRY POINT x 


-LIST 
5 RRA ER REE REE EER RE REAR EERE EAE EERE EEE ERR EERE EERE EER 
JEST SIG TO DETECT REV ENDZ, t 1SOuE GNURTFHGTD BLOCK # 0 HAS BEEN READ. 


BERR RE BRes 


BeHs 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Seen 


;SETCOM ERROR. 
sWAIT. 
; CHECK por ERROR 
F ERROR 
NOP 5 ENO TURN, 
TST aTCOT BLOCK 0? 
A ;YES. GO PAST BLOCK’ 0 

3NO. SET INTERRUPT VECTOR TO CD 
; ISSUE RNUM!REV!IE!00. 


;SETCOM ERROR. 


CAB: 


Selene 


171416 s ISSUE DO. 
TIME OUT INTERRUPT. 
INTERRUPT FAILURE. 


bs be bs ps Pee Pon b> bm Pe bb he pe 


NNNNN 
re ee a 
<wne--O 
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1715 007374 104000 SCOPE 

174 7 potods 007404 CD: Hoy aCE, (6) iHe WHEN INTERRUPT OCCURS. 
718 77? 171374 on TST . aTCCM Hes! one sfc ¢ 

ist ue 108008 Sis si ae IF not OR 

Lee Brie ipibe sete ee TE eM 

re = : ? 171366 171432 CEA HOU - aTCOT, BLKRO | PRERATURE eV ARUN ene 

1725 ae Bes 171360 a War aTCOT’ BOCK O 

1 34 901353 BNE CCA :BR IF NOT. (KEEP LOOKING FOR BLOCK 0}. 
: 36 anaes SVECTR SET INTERRUPT VECTOR TO CH 

1356 Gores | ipvose OAS COVE Toon ang fost" ns 

1731 OO07446 ipagss 171332 TST aTCST *ENDZ BIT SET? 

1732 peed 1OpNOS CF *BR IF ENDZ IS SET. 

1733 104012 ERRORN *REV END ZONE FAILED TO SET 

1734 bO7He 006522 *ENDZ BIT. 

178. 0 006118 STAT 

1737 oares 04000 SCOPE 

1738 OO7Ye b3e777 000209 171310 CF: BIT auPS,aTCST UPS CLEAR? a 

1740 boa? 104012 CFA: BEB oRN Bet ine fo REY ENDZ FAILED TO 

7 006543 ENSGS CLEAR UPS. 

iis 1 | 

1744 194009 SCOPE ; SCOPE 

1745 10 104012 CG: RRORN sENDZ BIT FAILED TO CAUSE 

174% 007512 006500 MSG3 : IN T. (CHECK TYPED TCCM 

1787 18 O0b118 STAT :TO SEE IF ERROR BIT SET). 

iris 104000 SCOPE SCOPE. 

1 oo7ee 012716 007530 CH: MO #CI, (6) sHERE IF INTERRUPT OCCURS. 

1751 ggo0ge RTI xd TO CI. 

rs ee eee et ol Eakin on x0 

173i eed 1 oo sco HERE IF ERROR 

1 i B38 aoe 000200 171236 BIT 8UPS, ITCST IF ENDZ. UPS CLEAR? 

tee Se eue pae eee BNE CFA Bue UPS NOT CLEAR. 

1738 007550 104000 SCOPE 

1760 + Helle ellen elias’ 111° tT 3 Walaa 
17es Seees rina M3: T4 S xT ROUTINE 
1763 1 1 | ic a COUN ; 
. 1765 LIST 

1766 Pea ee ti ph kh ila 
1767 ae jEQUEN TIALLY, SEARCH ALL BLOCK nue IF IN N FORWARD D1 TION. 

1769 SOyee tees 104015 SVECTR SET INTERRUPT VECTOR TO DB 

1770 007566 007616 D8 
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17h Soeey Orsre? Oolioe 171242 Roy SOB cTRA © ERCORCLOKKE CTU HECK TO ET 
1208 ios? Secon i: $8. OF -BLOcKs Fb! Te1b0 
1774 1 FWD! IE!DO 
1775 06 104000 as Sc e Kua sSET COM ERROR RO 
tees BBPeIe Bi Ae ia BELT iit, 
158 Masta 007624 DB ay #0C, (6) HERE WHEN INTERRUPT S. SET 
1596 ried BAR AAS : fey . HRY, EXIT TO DC AND EXT 
eet Does TesoS: - OrERS we ORE OR ERROR OR ENDZ 
tres BESS iiss. a Pads 
1784 1 PRMEND FWD ENDZ. 
1785 NDTR ics ie 
178% 171220 171150 MP BLKROQ, aTCDT Teo ze CTED BLOCK? 
1 44 001407 BEQ DD 
1788 46 104012 ERRORN te Ock in TCOT NOT EQUAL TO 
1789 Biss S EXPECTED BLOCK NUMBER 
1791 CTC 
1792 006115 STAT 
1793 007660 177777 -1 
Beene = Bye i, 
ipa ? ize ’ airs ;578 BLOCK # TESTED? 
1797 74 Oo1403 BEQ DF *BR IF YES. 
1798 76 a4 171104 INCE arccn SISSUE DO TO CONTINUE RNUM!FWD! IE 
1800 007704 see OF: SCOPE ; SCOPE. 
160s ee ee ae meee ee 
i Bb7718 BiBiie RODRESS ext, ROUTINE * 
160 st ppoote eh ST TEST DTRRaT Lan GRUNT + 
1 ; # BERKEL SSE © LELEELKESSES LESSER FSS S SPER ESSER ASKS ALS EREERESESELLERESSRELHRE 
160s iTEST ABILITY TO DETECT FWD ENDZ, BUT NOT BEFORE BLOCK 1101 HAS BEEN READ. 
1810 007716 104025 GO TO REV ENDZ. 
Hb Ries teary rom SUE RRUNREV!D0 
181 BRUM: REV!DO 
iis wore [eae Seg erg" om 
af ' 
181 1 171054 EAA: MOV #-1,aTCDT ish T ‘ 
E15 1O4015 SVECTR ot io ia 
1818 007760 
1 ? aan RNUM! FWD! IE!DO 
1 SSP up! 1100 
1 1 ;SETCOM ERROR. 
1822 104016 EB 
B23 1 ath sFAILURE TO INTERRUPT. 
1825 12716 007766 EC: #€D, (6) 
1826 n0000¢ Rid EXIT INTERRUPT 





—_ 
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ED: sRESTORE ees 
isha MD EN0Z. 


"171012 171056 ~  @TCDT, BLKRO 


001101 171002 gi #2101, ,aTCOT fa “8h, FR 
170766 enccn NOT YET. CONTINUE SEARC 


;SET INTERRUPT VECTOR TO EH. 
; TIMEOUT INTERRUPT 
; SAVE Cs AND TCST 

grcst ND 


F ET, 
;FWD ENDZ FAILED TO SET ENDZ BIT. 


cl 


0 0 0 0 9 pe 
_ 


-O- 
ood 
on 
558 


b> bo b< D2 b> Ps 9 hm hs pa pe 
: 


Rati 


; SCOPE. 

ENDZ BIT FAILED TO_CAUSE 
;INTERRUPT. CHECK TYPED TCCM 
:T0 SEE IF ERROR BIT SET. 


ce 


ERERURESIASoRENIMBERS 


HERE WHEN INTERRUPT OCCURS. SET 
SINT. EXIT POINTER TO EI AND EXIT. 
’ 
b 


ae 


#ET, (6) 


orw~ 
8 
o 


SERROR we _ATERRUPT AFTER BLOCK 1101 NOT 
; DUE "TE 


= 


¥ 


EK: 5 GiLh STOP 

*  eidae Gasiiieeeink StCETC as". aaieaamaeeanag 
SADDRESS CF _NEXT ROUTINE * 
; TEST ‘Testis COUNT * 
;SCOPE ENTRY POINT ' % 


Sec Rl ATTEN AN Ma ES 
iSEQUENTIALLY SEARCH ALL BLOCK de N REVERSE DIRECTION. 


;SET INTERRUPT VECTOR TO EEB. 
;START WITH BLK# 577. 


# OF BLOCKS TO ate TO CTRA. 
is SSUE RNUM!REV! IE!D 


PINE our INTERRUPT. 


sFAILURE TO INTERRUPT. 


O000 BDOOOOOOOOOOoOOOCOO00000 


O000 2000000 


bs fh bs hs $b Bs b= b> Ps b= = Oh he 0 hs bp pe 
pas hme = 
- 
- 
~ 
- 
T 


BRSe EuoRLRS 


CCA. 
827 
5 
E 
R37 
E 
te 
Bs 
846 
847 
848 
849 
850 
a 
a 
8S6 
857 
8S8 
8S9 
860 
861 
862 
863 
864 
865 
866 
867 
868 
3 
He 
873 
oe 
876 
877 
878 
8 
881 
882 


Ba hs FS pe bab hs Bb Be beh © Bhs be be b+ 0 fe be he ho pe 2 be hn Pe ht bs fo he eo he ph ce DP De 


tee] oe | oe | oe | oe | oe | oe | oe) om | oe | oe) 
ee eee 
QODdKdOO0OOO000O 
Oe eh 
RSS LNSnLNSeR 
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1983 10164 012716 010172 EEB: Moy WEEC, (6) sHERE WHEN INTERRUPT OCCURS. 
Ble cs ae 
1887 010176 104000 SCOPE ; ERROR RETURN. 
1888 O1 104053 END MATURE REV ENDZ 
1836 ot OS Gee777 170652 170602 oe BLKRO,ATCOT BptctD io ACTUAL BLK#’S SAME? 
1892 O10214 104012 ‘BLOCK# IN TCDT NOT EQUAL TO 
1833 108 6 OobH6I “EXPECTED BLOCK# 
tes. 10884 SEATS crey 
1 - 
ieee itees 77778 “lope 
1899 010232 005367 170624 EED: DEC BLKRQ sDECREMENT EXPECTED BLK#. 
1309 0108% 008 7 170602 ¢ TRA 7 CHECKED 978 BLOCKS? 
r3 1968 o1geW4 005277 170536 ~ Inc aTCon ISSUE DO TO CONTINUE SEARCH. 
1904 Bt osee To008 EEF: C 
ioe 1 oooone ce ne Re ee 
1807 Bigs O1o4ee ere SRODRESS OF NEXT ROUTINE 4 
1908 010260 cO0001 1 TEST ITERATION COUNT s 
1908 O10e62 O10c64 FA ey ‘SCOPE ENTRY POINT ‘ 
1911 j EHRLARAELEALALALE LE LALA LALLA ALLA LE RE AEAALA SEALE LAALALELALLLALAAAALARALELE 
1312 sSEARCH FORMAR on EVERY ELEVENTH BLOCK # AND CHECK THAT IT MATCHES 
1914 010264 104025 ba: REWIND sREWIND TO REV ENDZ. 
1915 Oi0266 12767 po0062 170550 MOV #50. ,CTRA 
1916 010274 Ole767 000013 170544 MOV #11. 'CTRB 
1917 010302 Ole767 OO0012 170552 MOV #10. /SLKRO 
1918 10310 104015 SVECTR sSET INTERRUPT VECTOR TO FB. 
1920 010314 104017 TC ISSUE RNUM!FWD! IE!D0 
1921 010316 000103 RNUM! FWD! IE!D0 
_ 1922 O1 104000 sSETCOM ERROR. 
1923 010322 104016 FAA: DELAY ‘TIME OUT INTERRUPT 
ia IE ins oe jo ndlaahiaet 
1326 010330 12716 010336 FB: HOV WFC, (6) a tS tc me Ea. OCCURS. SET 
tiem 
1928 010336 FC: POPSP2 ST TACK. 
1929 shies rai CKERRZ ICHECK FOR ERRORS 
_ 1930 b103N2 104000 SCOPE s ERROR RETURN. 
1931 O1 104053 PRMEND “PREMATURE FWD ENDZ. 
1932 010346 005367 170474 DEC CTRB ‘ELEVENTH BLOCK? 
1933 010352 0014 BEQ  =«-«FD ‘BR IF YES. 
1934 010354 Bpea79 170426 FCA: INC aTCCM :NO. CONTINUE 
1935 010360 000760 BR FAR 
1936 O10362 104024 FD: SAVDTR sSAVE TCDT. 
1937 010364 026777 170472 170422 CMP BLKRQ, ITCDT *BLKRQ=TCDT? 
1938 010372 001402 BEQ FE : ‘BR IF SAME. 


LO3 
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aw 
9! 


WRNGBK 3 THE BLOCK NOT THE EXPECTED BLOCK. 


Pp : 
170454 FE: 6B . #11. ,8LKRO ; BCKRQ 79, — EXPECTED BLOCK. 
170432 - MOV #11. ;CTRB ;RESET CTRB TO 1 
TRA’ ; SO Tines? 
’ 


CA F_NOT. 
STOPDT soos TO. ALL STOP. 


TT tt TT Te 
+7: ? sROUTINE NUMBER 7 ¥ 
a re * AD OF NEXT ROUTINE 2 
1 >TEST ITERATION COUNT ie 
GA *SCOPE ENTRY POINT ¥ 


«LIST 
[EH HHGE HEHEHE HEHEHE HEHEHE HEE HEE 
;SEARCH REVERSE. READ EVERY 11TH BLOCK # AND CHECK THAT IT MATCHES 
jutTH nee BLOCK. 
;G0 TO FWO ENDZ. 


170376 HOV #50. ,CTRA 


MOV #11.) CTRB 
MOV 567 »BLKRQ ;1ST EXPECTED BLK # TO BLKRO 
SVECTR ;SET INTERRUPT VECTOR TO GB. 


SETCOM ; ISSUE RNUM!REV! IE!D0 
RNUM! REV! IE!D0 
COPE ; SETCOM 


ERROR. 
FINE O OUT INTERRUPT 
*FAILURE TO INTERRUPT 
3SC 

tJ 

8 


-— b> 6 > = b= bo 


Uiub Eee FESS EP 


SORRERT cage 


;HERE WHEN INTERRUPT OCCURS. SET 
Feat TO GC ce EXIT 
:C ak FOR E ERROR OR ENDZ. 
; HERE IF ERROR 
;PREMATURE REV ENDZ. 
CTRB ;ELEVENTH BLOCK? 
:BR IF YES. 
aTCcm ;NO. CONTINUE 
GAA 


#GC, (6) 


atatatat al 
& 


Bone SESPeRnsr peunbeeens 


GD: ;SAVE TCOT. 
170250 CMP BLKRQ, JTCOT ;TCDOT SAME AS EXPECTED? 
Q ;BR IF YES 


ibe Ke I IN TCDT NOT SAME AS 
170302 GE: : : UP. Fag fo' TO NEXT EXPECTED BLOCK. 
170260 : i REGE 

: DONE 
:BR IF NOT 
DONE 50. ALL STOP. 


SCOPE : 
PTETETETESSTESETETETTTTTETTT TT TT TTSTTETT TTT TTT TT TEST TTTTTT TST TTT T TST TT TT 
T10: 10 sROUTINE NUMBER 10 % 

Til RESS OF NEXT ROUTINE 

TEST ITERATION COUNT 
SCOPE ENTRY POINT 


01 
01 
O01 
01 
O01 
O01 
O01 
O01 
O01 
01 
01 
A 

! 
Ol 
ft 

1 
O01 
O01 
01 
O01 
01 
01 
O01 
01 
O01 
pt 

| 
01 
A 

1 
01 
01 
01 
01 
01 
01 
01 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


954 
955 
956 
957 
9$8 
: 
961 
962 
963 
964 
96S 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
ee 
973 
980 
zs 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
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OZTCCA.P11 
1995 > SFORWARD STOP-START TEST. FROM STAND STILU THE Fine? Block # ReaD 
133) ee ar jhuST NOT. ee nORE Tuan q- al eKs Puy eon PREVIOUSCT BERSK BLOCK. 
767 70224 ele #20. ,CTRA og : ENO TO_CTRA. 
$333 Btbess btece> soooed tSo8su y  sb-aekRG iu 5 08: Bhat oo 
sroe thes 1o401s SVECTR SET INTERRUPT VECTOR T 
1pP3 AGB: HAA: BB com s ISSUE RNUM!FWD! IE!DO. 
2004 010634 000103 RNUM! FWD! IE!D0 
2005 010636 104000-- SCOPE ;SETCOM ERROR. 
e008 b10649 104016 DELAY TIME OUT INTERRUPT 
10642 104027 NOINT "FAILURE TO INTERRUPT 
e008 bi 0644 ioo00 SCOPE 25 
1064 012716 O10654 HB: MOV #HC, (6) ; HERE WHEN INTERRUPT OCCURS EXIT 
2010. 010652 00002 RTI 
2011 010654 O2ebe6 HC: POPSP2 RESTOR STACK. 
2012 O10555 104023 CKERRZ *CHECK FOR ERROR OR ENDZ. 
2013 O1 104000 SCOPE 
2014 010662 104053 PRMEND sPREMATURE FWD ENDZ. 
2015 010664 104021 ai STOPDT “ALL STOP 
2016 O10666 104024 SAVDTR :SAVE TCDT. 
2017 010670 170120 170164 CMP JTCDT, BLKRO :COMPARE EXPECTED AND CURRENT BLOCKS. 
2018 0106/6 101402 BLOS HD ;BR IF TCDT LOWER OR SAME. 
2019 Ol WRNGBK + SBLOCKS THAN S BLOCKS AWAY 
. 2020 010702 104000 “a SCOPE * FROM PREVIOUS BLOCK READ. 
2021 010704 017767 170104 170150 +0: MOV aTCDT, BLKRQ “SAVE CURRENT BLOC 
e0ee o10712 062767 oo000s 170142 ADD #5, BLKRO iE UP FOR NEXT PECTED Bg 
Shea pinvee docs? 170116 BEC CTRA DONE” “rites Read THED? 
2025 010726 001341 HAA 8 
e026 010730 104000 .. BABPE 
grove tit ensenvervnvee ist liceroenenieresgrre 
: 208 010732 000011 Sa it 80 UTINE ll x 
O29 010734 O11064 12 ADDRESS OF NEXT ROUTINE “ 
2030 107 000001 1. TEST ITERATION COUNT % 
; 20 31 1 010742 A SCOPE ENTRY POIN % 
2033 53H HI HEHEHE HEHEHE EEG HEHEHE GGG IEE EE at 
2034 *REVERSE STOP-START TEST. FROM STAND STILL THE FIRST BLOCK # READ 
2035 ‘MUST NOT BE MORE THAN S BLOCKS aWAY FROM PREVIOUSLY READ BLOCK. 
2036 O10742 104026 A: WIND 360 TO FWD ENDZ. 
2037 010744 012767 oO00e4 170072 MOV #20. ,CTRA "DO TEST 20 TIMES 
2038 010752 012767 001101 170102 MOV #1101, BLKRO 1ST EXPECTED BLOCK # 19 BLKRG 
2039 010760 104015 SVECTR SET INTERRUPT VECTOR TO I6 
2040 010762 611000 1B 
204 o10764 104017 IAA: SETCOM 0 s ISSUE RNUM!REV! IE!D0 
4 stag natn RtOPE ;SETCOM ERROR. 
2044 010772 104016 DELAY TIME OUT INTERRUPT 
2045 010774 104027 NOINT . ;FAIL TO INTERRUPT 
2 1 14000 SCOPE *SC 
2047 O11 12716 011006 IB: MOV BIC, (6) ;HER E WHEN INTERRUPT OCCURS. 
2048 011004 o00002 RTI EXIT INTERRUPT TO IC. 
2049 O11006 O22626 : IC: POPSP2 STORE ST aeK 
2050 O110i0 104023 ok CKERRZ CHECK FOR ERROR OR ENDZ 
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2051 011012 104900 SCOPE ERROR oR ENDZ RETURN 
2052 011014 104033 PRNEND jPRENAT URE REV ENDZ. 
shed Bit Bups4 aa eee 
2055 1122 026777 170034 167764 cH BLKR, OTCOT :T CDT. SAFE rt EXPECTED BLOCK #? 
er Gite ioe Een FROGre, ReaD MORE Teg BLOCKS au 
il 017767 167752 170016 ID: MOV JTCDT, BLKRO : SAVE 
eos Bio ieerer NaS eat SUB 7 BURRG SET ue FOR a peter D BLOCK 
e0 Ot oes S367 167764 DEC CTRA :DONE ‘ auTRED? > 
0 11 001341 NE IAA 
2064 011062 104000 SCOPE 
6S cdement roimenmeeeninemeel tcettealtrcliesendediiuameninniamenenen 
66 011064 12 tiz: 12 s ROUTINE NUMBER 12 4 
2067 O11066 O11i6e Ti3 “ADDRESS OF NEXT ROUTINE 4 
2068 011070 o00001 :. TEST ITERATION COUNT # 
e0b3 011072 011074 IR er *SCOPE ENTRY POINT viata & 
a) j REARREAARAAK ARLE AA RELA REL RELA LAA A RELA EA ALA REL REALE LER RRRL LALA REL ARALELES 
72 ‘SEARCH FORWARD AND REVERSE ALL BLOCKS USING SRCHF AND SRCHR SUBS. 
2073 011074 012767 001102 167742 JA: MOV #578. , CTRA >SET UP TO H S7 KS 
2074 011102 012767 177777 167752 MOV #-1, BLKRO *STARTING WITH. BLOCK O. 
2075 O11110 005267 167746 JB: INC BLKRO. 
2076 O11114 10403e SRCHF ;FIND FWO BLOCK # SET IN BLKRQ. 
2077 011116 104000 SCOPE “ERROR IN SRCHF. 
2078 011120 7? 167720 DEC CTRA ; FOUND 578 BLOCKS? 
2079 011124 001371 BNE ‘JB NO 
2080 011126 012767 001102 167710 MOV #578. ,CTRA SET UP TO SEARCH 578 BLOCKS 
2081 011134 012767 O01102 167720 MOV #578. , BLKRQ *STARTING WITH BLOCK S77. 
2082 011142 005367 167714 Je: DEC BLKRQ’ 
2083 011146 104033 SRCHR ;FIND REVERSE BLOCK SET IN BLKRQ. 
2084 O:1150 104000 SCOPE “ERROR IN SRCHR. 
2085 011152 005367 167666 DEC CTRA :578 BLOCKS FOUND? 
011156 001371 BNE Ic 3BR IF 
2087 011160 104000 SCOPE MOORE. 
2088 . POPE tte PEE TTT PTT Tree TET thir ter ttit Terr rer rrr TTT TTT Treen nnn t tt 
2089 O11162 000013 3} “iadae | yaa. s ROUTINE NUMBER 13 % 
2090 O11164 011240 Ti4 “ADDRESS OF NEXT ROUTINE « 
e091 O11166 o00024 20. TEST ITERATION COUNT % 
e03e 011170 O11174 KR cr *SCOPE ENTRY POINT sg 
20394 5 3H HHH HEHEHE HEH Ha 
2095 *SINGLE BLOCK TRANSFER TEST. WORTA FWD, RDATA 5: DATA IS ALL O'S. 
20% 011172 104030 RNDBLK ANDOM BLK# TO BLKRQ. 
2097 011174 104044 KA: CLEAR + ATEAR 256 Hon WRITE BUFFER TO 0°S. 
2098 011176 013350 | WBUF 
2099 011200 000400 256. 
2100 011208 104045 eae FILL ;CLEAR 256 WORD READ BUFFER TO 1’S. 
2101 011204 O15420 RBUF ; 
e102 se Ob 77777 - ees 
el 1lel 400 , 256. 
104 Ollel2 109037 MF WDATAF CALL WDATAF SUB TO uRITe FWD 256. WORDS 
210S O11214 oo00400 256. “STARTING AT ADDR WBUF 
2106 Ollelé 013350 WBUF 
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2107 911220 14041 RUATAF :CALL RDATAF SUB TO READ FWO 256. WORDS 
2108 Oll222 go04 256. !AND STORE AT ADDR STARTING AT RBUF 
109 igs 1SHeQ REUF 
119 O11 6404 DATCHK :CALL DATCHK SUB TO CHECK DATA STORED AT 
iit il 3 13 30 WBUF SHWBUF AGAINST DATA STORED AT RBUF 
112 Ol1 154 RELIEF :CHECK NUMBER OF WORDS SPECIFIED. REPORT 
2113 gti 3 ooo4 Sb. : ERRORS. 
2128 612 104 | 
us a” - SRFERSSFRFERALESFSLSRSSSSESFSEREFSSSFSSSELASSSESESSRSSSLE SA SESSSSELSLSSSLE LSS 
1ig 91140 900014 t14: 14 sROUTINE NUMBER | > 
11? Olle42 011304 T1S sADDRESS OF NEXT ROUTINE + 
118 piety 0524 20. sTEST ITERATION COUNT + 
ei il 11266 1 ISCOPE ENTRY POINT } 


ish ; RELSSAASRSSERELSLALEL KELL LELHELALLLAL ALLL LASSLA AAAS RL ASSSAAA SLA LLSSLALEE 
l :SINGLE BLOCK TRANSFER TEST. WOATA FWD, RDATAFWD. BINARY COUNT PATTERN. 
153 $i45es AP2589 ounse on 18 ROOK ree carry eee emits Bcewoe, 

5/62 Bt ees 12767 isos) MOV roa BINT aE UP. READ Dara FH. 

2126 O11266 O04767 La: ISR *G0 DO SINGLE BLOCK TEST. 

gig: lier? 04047 DATCHK scat Renin SB off CHECK pata STORED AT 
lee Olle7s 613350 INST DATA STORED AT RB 

2129 Olle7 915420 RBUF 3 CHECK NUMBER OF WORDS SPECIFIED. REPORT 
2130 911300 O004¢0 256. 

2131 611302 104000 SCOPE 

gis SSEEESIRG RSE HFSSRSHESHESESSEFHSSSHSSLRSELELSLLRSSRERSESLLSSLSHSLSASERRELSL SSS 
Si3y BiisRe GoogLe MS: 7 TAOORESE. OF RENT ROUTINE ; 
2135 511308 BAAaSG 20. TT OOREFERAT ION COUNT * 
ES 011312 01133e HR et :SCOPE ENTRY POINT + 
2l138 s SSRALLALSLLELAELSSLSALSELARELSLERELAAELAEALALLAARALALALSERALALSALZLEA ALS 
2139 . :SINGLE BLOCK TRANSFER TEST. WOATA REV, RDATA REV. BINARY COUNT PATTERN. 
2140 O11314% 104022 RNOBLK sRANDOM BLK& TO 9 BLKRO. 

2141 911316 612767 104040 900150 MOV SiWDATAR, SBINTX SCeT UP WRITE A REV 

ei4e 911324 012767 iosoae 000150 MOV #RDATAR-SBINTY :SET UP READ DATA REV 

2143 011332 004767 000122 mA: = JSR PC, SBINT ;G0 DO SINGLE BLOCK TEST. 

2144 011336 104047 :CALL DATCHK SUS TO CHECK DATA STORED AT 
2145 611340 613350 SWBUF AGAINST DATA STORED AT RBUF 

2146 Oll342 015420 * RBUF :CHECK NUMBER OF WORDS SPECIFIED. REPORT 
2147 611344 900400 256. ERRORS. 

2148 611346 104000 

2149 PEEFLFFELSRSEFES FSA TES SSLSTRELS HERS PKLSAFLEHSLEFRAKSEEERSERELEPRSPLEBPRSHRRVS 
2150 011350 oo0016 ls: 16 sROUTINE NUMBER 16 a 
2151 911352 O11414 117 *ADDRESS OF NEXT ROUTINE x 
2152 611354 o00024 20. ;TEST ITERATION COUNT * 
ei53 011356 011376 NA :SCOPE ENTRY POINT * 
2lss Titi 
2156 “SINGLE BLOCK TRANSFER TEST. WOATA FWD ROATA REV. BINARY COUNT PATTERN. 
2157 -O011360 104030 RNDBLK ANDOM BLK& TO BLKRO. 

2158 O1l362 012767 104037 ocO0104 © MOV SUDATAF , SBINTX UP WR te spate EHO. 

2159 011370 O120767 104042 OO01O4. . MOV #ROATAR: SBINTY SET UP Re A REV. 

2160 011376 004767 OO00se NA: JSR Pc. SBINt 300 0 0 SI NGLE OELOCk K TRAN ANSFER S. 

2i61 011402 104050 DATCKI - CALL DATCKI TO CHECK DATA STORED A 

2ié2 O11404 613350 WBUF WBUF AGAINST DATA et ORED at SBeP sei. 
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uy fee tRcTOne ‘pata Ts EMECKED IN DESCENDING ORDER. 


jipseenebeansooussucnsnssonenssnsessnnenenesnassaueasesesesssunnnsnesane 

¢ ; a 

10 ADDRESS OF NEXT XT ROUTINE + 

20. ; : TEST I Oe be COUNT ‘ 
: SCOPE ENTRY POINT 


41 
a 


ttn Soo Geoee %' 


qo 
mir 
os oR 


LL £££ 
«£ 


oo 


# 


s 


T 
tinal aa ht ARETE A to Se 
SINGLE BLOCK TRANSFER TEST. WOATA REV, ROATA FWD. BINARY COUNT PATTERN. 


K 
104040 900040 SWDATAR, SBINTX 
104041 000040 BROATAF | SBINTY 
000012 OA: SBINT 


O-- >  — bb = 0 -< bP & 3 9 pp 9 


ob 0 
Po oe 4 
pte 
oOO0O~- 
= 
ah 

~NEND 


ie 


—— 
=f 
<= 
~ 
io 


IF TED. 
TUAL DATA IS CHECKED IN DESCENDING ORDER. 


i& 


O- 


BINFIL FILL 256 WORD WRITE BUFFER WITH . 
WBUF ‘BINARY COUNT PATTERN. 


eS6. 
caren ;CLEAR 2S6 WORD READ BUFFER. 


256. : 
SBINTX: OPEN sWDATAF OR WDATAR. 
UF ;ADDR TO START WRITE FROM. 
SBINTY: FEN :RDATAF OR RDATAR. 
RBUF 


: 


FEREAINSRERE ROBE 


RTS PC 
srengtnmeacmmnen a atoemermnennrnn 
t20: 20 ROUT 

Tel 3 


OF NE 
TEST I ERATION. C SUNT . * 
IST is OPE ENTRY POIN * 


Friis 
:TWO BLOCK TRANSFER TEST. WOATR FWD, RDATA FuD. BINARY COUNT PATTERN. 
MOV SUDATAF,OBINTX ;SET UP WDATAF 
tea giPFoRein @QIRECTION INDICATOR. 


RANSFERS. 
HK SUB TO, CHECK DATA STORED AT 

2 a ze STORED AT REUF : 
OF WOROS SPECIFIED. REPORT 


: 
5 
5 
5 
: 
: 
; 
; 
5 
5 
3 
5 
: 
5 
2 
5 


BESRRLSG BIRR PSS II 


ut ut 
eT ee! 
«rm oOo 


us. 


QO000 OOOOOIOVOOAHO0NO BOO0200000 
Ob b= 82 + 0 0 0 — hhh) 0 bo bo Fo bo be 


a ee ee od ob 0 & + 6 1 b= B 9-0 bo hp He 0-2 OB gH 


Bas 


Banas 


oO0oo0oo0O OOOOOOoO0O0O 
8 a 
inn intnite nihil 
Ree agp ae 


+ aaaai+ lahaaaaaiataiiapaaaiaamaa +t ah + aaa 
t21: @1 sROUTINE NUMBE 1° * 
22 S OF NEXT ROUTINE 
20. ‘TEST ITERATION COUNT 
GA :SCOPE ENTRY PCINT 


RRR 
@OnmW sc Wwe 





Qo-4 
NO 
us 


non 
ao 


rune 
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2 
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6 pe 
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Shi 


O000 200000000 
bh hb 9 ho pe pe pe 


pururarururury 
RESEE 
SRee BRE 


pururururarary 
BRR SES 
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oe 


~w 
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sare 
Pint 
eretatal 


= 
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Ses SOSRERETS 
Be 


Q000 GBO0000000 
a b= b> bh Go bs fo fs Pie Pe 
Ba ho B-o he ee en ee oe a on 


20 
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: 
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SSEReee 


YQNOOOOOOOOOVOOVOO000000 
eb &-4 Pb b = & = b= fh = 84 b= Bb hs a bh be Re 
(B+ & = 4 be B= B= Ps = G = &-3 HR B= BP Bo B= bs He 
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-LIST 
HHis'BLOek TRANGEER Tea GREA RELY AaMR REL DITOR COUNT PaTTCR 
Rov eHOATRR,OBINTX” set UP MORTAR: 


MOV TAR, DBINTY 
CLR ae seFL UP piPrERENT DIRECTION INDICATOR. 
QA: JSR PC, DBINT 560 00 ERS. 
DATCHK ; ed rte Sug TO CHECK ae STORED AT 
i DATA STORED A 
RBUF CHECK NU R OF WORDS SPECIFIED. REPORT 
Sle. sERRORS. 


SCOPE 
a SSE ARSE SEE HES SE JE SE HEE EE HE GE SEE SEA SE AE AEA EEE AE HE EE 
: + 


22 ;ROUT R 
Te3 ‘ADDRES OF REX T ROUTINE * 
20. ;TEST ITERATION COUNT * 
RA ;SCOPE ENTRY POINT + 


-LIST 
jHUUAAEAENTESHEEPRUEERERRESEEELARAEHEEEEEHEEERERUEESOREAOEEEEEEEEEEHEEES 


*TWO BLOCK TRANSFER TEST. WDATA FidD TA REV. BINARY COUNT PATTERN 
MOV TAF, x t UP WDATAF. 
HOV Hat aoe :SET YF ECRENT RECTION INDICATOR 
RA JSR , DBINT : Be Peer TON 
DATC *CALL DATCK 79 CK DATA STORED AT 
: AGAINST DATA STORED AT RBUF+10e2. 
RBUF +1022. sCHECK # OF WORDS SPECIFIED. REPORT ERRORS. 
ie ACTUAL ‘DATA IS CHECKED IN DESCENDING ORDER. 
SSELSERPSEFSSSHERESSRELE LE SERPSRSEFELSPALARFESKPLRSRSE HALLE ERRLA ESSER SSSESESISE 
te3: 23 ;ROUTINE NUMBER 23 % 
T24 OF NEXT ROUTINE + 
20 >TEST ITERATION COUNT x 


;SCOPE ENTRY POINT ¢ 


T 
sreessait ileseaseeerressairenrenssstaenrereasinennsesnnientsssesninin 
*TWO BLOCK TRANSFER TEST. WOATA REV, RDATA FWD. BINARY COUNT PATTERN. 

MOV sDATAR, DBINTX sSET UP WDATAR. 


MOV AF’DBINTY SET UP RDATAF. 
MOV 8-1, DBIATZ :SET DIFFERENT DIRECTION INDICATOR. 
SA: ISR PC, DBINT :G0 DO 2 BLOCK TRANSFERS. 
TCKI CALL DATCKI T 0 CHECK DATA, STORED A 
ReUF +1022. ‘CHECK 8 OF woRBS” SPECTETER. Reb i ars 
Bo *ACTUAL DATA IS CHECKED IN DESCENDING ORDER. 
DBINT: BINFIL sFILL S12 WORD WRITE BUFFER WITH 
WeUF sBINARY COUNT PATTERN 
CLEAR sCLEAR S12 WORD READ BUFFER. 
Tee 
MOV #200. ,BLKRQ 3200 TO BLOCK REQUIRED. 
DBINTX: OPEN *WDATAF OR 
Sle. :WRITE S12 W BROS 
WBUF "ADDR TO START WRITE FROM. 
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Fact 


isis 000036 TST pee sOIFF DIR _ IND SET? 


3 goog: 167 1§7 ie a My RQ : Ne F GOING FWO. INC BLKRQ. 


ipsrbs poo0n2 167032 Ht: Ook NO, ~ Fron KO. 
DBINTY: : 
a5 8 70ST a som INTO. 


R Cc 
DBINTZ: OPEN RENT. DIRECTION INDICATOR. 
"Seg gems: rerme 75 asian 
+ 


£ 

TEST ITERATI ae * 

iI BPE ENTRY Bor cau + 

jSUIOOOSSASEEULEAOESORELELEOOSSOSSELESUPROSAUSISOSERAELISDSDEREELISINGD 
‘PARTIAL BLOCK TRANSFER TEST. WOATA S BLOCKS. ROATA FWD 2 BLOCKS. 


; BINARY rei PATTERN. UNARITTEN FOR ce ae SHOULD BE 0’S. 


CLEAR Sie WORD WRITE BUFFER. 


furura 
a-to* 


te Bae 


Orr 
=~ 


: 
Bas 


SCPC PERE STP EEE ey 


Zu 


-_ 
ro 

oul 

to 


;FILL 384 WORD WRITE BUFFER WITH 
BINARY COUNT PATTERN. 


;CLEAR S12 WORD READ BUFFER. 


8 


i 
Bes 


Soe 
stil 


;CALL_WDOATAF SUB TO WRITE FWO 384. WORDS 
STARTING AT ADDR WBUF 


;CALL _RDATAF SUB TO READ FWD Sie. WORDS 
;AND STORE AT ADDR STARTING AT RBUF 


;CALL DATCHK SUB _TO CHECK DATA STORED AT 
;WBUF AGAINST DATA STORED AT RBUF 
s CHECK NUMBER OF WORDS SPECIFIED. REPORT 


iri 

ie 
: 
2 


S52 


as 
aay 
x 


SB 


tw 
: 
g 
Z 


0-2 62h Bh ho Ba he 
8 i 


pepeeeeepinssessasssssssssseneeenssennnennngseguassnasssssssnsnseenest 

i ete a" 

a ENTRY SOIT + 

s SESESSERSSSUSTUSSERSERESTUSSENS SEES SN SEeRSEnESSNSEeEseneseeeeneeETeenees 
4 BLOCK TRANSF , FWD 

cone ep AND USED AS 1024 WORD READ “WRITE ITE DATA IS TAKEN FROM THE 


anata CO0E a ae simi me AT ra OTC A toate. 


NOV BRDATAF , aE NTY LP are 
CLR QBINTZ :CLE DIFFERENT DIRECTION INDICATOR. 
JSR PC, QBINT :G0 DO 4 BLOCK TRANSFERS. 

;CALL DATCHK SUB TO CHECK DATA STORED AT 


Het bet te bd 


0 NOU wir 
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rm 
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Oi 
01 
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EMO ete AGAINST DATA STORED AT WBUF 
WBUF ;CHECK NUMBER OF WORDS SPECIFIED. REPORT 


‘ 
Hina gpa eneene pant oO Ot > eens meer 
3 e od 
$8. : : S XT ROUTINE ‘# 
TEST ITERATION CO COUNT _# 
*SCOPE ENT % 


:sueueeicecseneenneaeeneeapneyeenneseeanveveenteaneesveneearesneeeents 


a 
Ioaose ie roy R BRT aBINN eI Up tee. T DIRECTION INDICATOR. 
tree VA: 78 , 8 " DO 4 on TRANSFERS. 
DATCHK 199 B DATCHK SUB TO CHECK DATA STORED AT 


fiBO ° ibe aN OHTA, S7oR BROS SPECIFIED. REPORT 
024. * ERRORS. 


OPE 
o SEELEREFLREFS SEER SSERSE EEL LESSEE ESA EBLSERSL LSS LL RA RELERRSSEBREERSLSRSSESS 
t27: 27 ; ROUTINE 27 2 
T30 SS OF NEXT ROUTINE % 

:TEST ITERATION COUNT # 

>SCOPE ENTRY POINT % 


; 


See HORSOSS 


-LIST A 

tT BOCK TRANSFER TEGT WDATAP ROATAR URITE WO Ren Bhtcee ae 

: WOATAF, RDATAR. WRITE AND READ BUFFERS ARE ' 
ea READ BUFFER. | WRITE DATA IS TAKEN FROM 
STARTING A A T ADDR EHO 

BE» OBINTX 3SE TAF. 

a Dig FFERENT DIRECTION INDICATOR. 


he Bat i to. Aes S Tore eons AT 


REPORT ERRORS. 
sacra ‘pata BC CHECKED. IN DESCENDING ORDER. 


A 797 
* 
TINE * 


TES) TTERATION COUNT : . 


S RoResaene 


fururu 
WWW 
b= 6+ Gb 
ocmMo 


reelituousrennmpsennrerteenarensssnm 
pen Ok er R nea ioeolon ROA Ae WRITE, BAD REAO RS_ARE 
Mrat BUFFER. WRITE DATA IS TAKEN FROM 


"ge gee 


a se a 
Wey 1 co agtat T2 a5 DIEFERENT prREcroN 1 INDICATOR.. 
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DZTCCA. Pil 


— 
CoO 


seBaRaee 


OG he Be 1 bo Ps hs ae he Be 
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a 
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2413 012472 
e414 

2415 012464 
e416 

2417 

e418 

2419 012767 
e420 004767 
evel 104000 
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1e5444 
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DATCKI ;CALL DATCKI TO CHECK DATA STORED ay 


sane, Reet tae Bins, 


1se4. ACTUBL DATA IS CHECKED IN DESCENDING ORDE 
dpint: CLEBR Ss 1024 WORD READ BUFFER. 


#200. ,BLKRQ 3200 TO BLOCK REQUIRED. 
QBINTX: ; WOATAR. 


am : 
3 i a 
BIT ; 


T, 
ADD KRQ ; ASSUME DT GOING FWD. ADD 3 TO BLKRO. 
I atv, aTCcn pT NG FWD? 


NO. Bo FROM BLKRQ. 


BEQ 

QBINTY abn 
‘ Oy, ea WORDS . 

: T ayPet READING INTO. 


R PC ‘ ute 
QBINTZ: BPEN AY TORRECTION INDICATOR. ; 
jagetbbeaaseeessunssadinassssuasbessintanatazsanianenaascecssieeeessaa 
ADDRESS OF NEXT ROUTINE * 
1 ;TEST I TION COUNT oe 
wa :SCOPE ENTRY POINT + 


-LIST 
5 SSE IESE SESE HE HEE EEE HEHEHE AE HEE RR HEE HE HEHEHE RHEE ER EAE EAE REE EE EERE ES 
;DOUBLE BLOCK TRANSFER Me ALL BLOCKS. DATA ALL 0’S. 


MOV 82 
WA: ISR PC, SBKSUB po ALL BLOCKS TEST. 
uqnenesbounseneneneltteigarageenaeiensenn 
33 NEXT ROUTINE | * 
l ses EfeRarign coun * 
ae | SCOPE ENTRY POINT % 
jSusenaubSsseubeusnsoeooueucneseuvesseess seqesssuueonantvenessstsetends 
*D BLOCK R TEST. ALL BLOCKS. EACH BLOCK IS WRITTEN WITH 
ITS OWN BLOCK 
MOV sliCSB, SBKSBP 
XA: JSR PC, SBKSUB :G0 DO ALL BLOCKS TEST. 


HGHGHEHIHEHEHHHHEHHEHEHEHEHEHEAHHHHEHEHEHHHHHHEHEHEHEHEHEEHEHEHEHEERE EH 
* 


no ‘ADORE 
$ XT ROUTINE + 
1 ;TEST ITERATION COUNT # 
SCOPE ENTRY POINT * 


Y 
T 
tare Sn tt tee PNR TTB 8 ik 
; DOUBLE BOK bag 4 TEST fel BLOCKS BINARY COUNT PATTERN. 
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DZTCCA.P11 
e443 


m 


; INIT BINARY COUNT PATTERN 
YA: Baur ETRae Eh MGT TR UPPER WITH 


3G0 DO ALL BLOCKS TEST. 
Miriiittiiiiitittiiiititiiitititttiiitititiitiitttiititeiiitittetiti ees 
+ 


+34: iB 34 
#45 ROUTINE > 


XT 
STEST ITERATION COUNT % 
;SCOPE ENTRY POINT * 


T 
saecongul tt toagesuneenuasnasequensenpeneapennethenetaniaaammeisenennt 
;D0UBLE BLOCK bag ct TEST. ALL BLOCKS. RANDOM DATA. 


, SBKSBP 

; INIT RANDOM NUMBER SUB. 
sFILL S12 WORD WRITE BUFFER WITH 
sRANDOM DATA. 


oe eg 


Pr b= be pew b> ps P= ph be 


PC, SBKSUB GO DO ALL BLOCKS TEST. 
: SCOPE. 
ITE-READ ALL BLOCKS. BLOCK T ERS. 
BLOCKS F' SKIPS 2 BLOCKS, WRITES ANOTHER 2 BLOCKS, 
OCKS ARE WRITTEN IN REVERSE. SAME PROCEDURE 


;SET UP TO WRITE 2 BLOCKS 14S TIMES. 
;STARTING WITH BLOCK 0. 


;GO SET UP WRITE BUFFER. 

;CALL WOATAF SUB TO WRITE FWD S12. WORDS 
STARTING AT ADDR WBUF 

sMATTTEN {NS TIMES? 


ir tp MO" WRIT: - pL oes IN REV 144 TIMES 
TARTING WITH 575. 


;G0 SET UP WRITE ER. 

;CALL_WOATAR SUB TO WRITE REV S12. WORDS 
STARTING AT ADDR WBUF 

WRITTEN na TIMES? 


Ser ue fo oe eos FWD 14S TIMES 


HEB. RORTAE” SUB 10. READ FLD. B12. HORDS 


3AND STORE AT ADDR OSTARTING A T RBUF 

a eine oe TO orece pata ST STORED AT 
pepe TA STORE 

;CHECK NUMBE SPECI FIED. REPORT 

spars 145 TIMES? 


EEEPR TERT R AU MMROEROC SE Se aE 
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See 
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nae 
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1 
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1 
1 
1 
1 
1 
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ae rating RPE SH THe 
SRO te 


Ge RTO Tt BE STONED 
3 GREK une OF WORDS SPECIFIED. REPORT 


CTRA "READ 144 TIMES? 
S80 ;BR IF NOT. 


SBK 
PC ; xIT. 
* WRI FER SET UP SUB POINTER. 
Sie WORD WRITE. BUF BUFFER WITH # OF BLOCK TO BE WRITTEN, AND 


BLKR@, WCSBA ;BLK# TO WCSBA 
FILL WRITE BUFFER WITH DATA IN WCSBA. 


aT) 
—— 
id 


Bao bb hs PO he he he he pe se Po pm Bp 


Soa SEER BROKE —— 


ag 
3! 


eee anaes 


SF 


Bers 
z 


rae 


3 


eee 


RDA 
OD NWUI 5TH 
re <ul 


WBUF 
WCSBA: OPEN 


= CSBB igo CLEAR READ BUFFER. 
-SUB TO CLEAR 512 WORD READ BUFF 
YCSBB: ;CLEAR 512 WORD READ BUFFER. 


R PC “EXIT. 
-SUB TO FILL WRITE BUFFER WITH O'S AND READ BUFFER WITH 1’S 
30SB: CLEAR ;CLEAR S12 WORD WRITE BUFFER. 


Sle. 
FILL ;FILL READ BUFFER WITH 1’S. 


Soe RS ERR 


Hh) 
3 


EXIT. 
a 
: TTERATIO C “ye : 
“itst idee TR RTI en * 


;SHAESUSSUAASENEOEOAEAULHAESBOEHENDESESEULESUSSABESSEELAESSAEALORI SESE 
R ARE COMBINED 


: AND BUPEER: WRITE pava TS: TAKEN FROM THE 
be TR oi STARTING. Ae Pa ti et y 
d AR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: 
0 
, 


Sazw oF LAS 


TO WRITE 4 BLOCKS FWO 72 TIMES. 
NG WITH BLOCK OQ. 


;CALL_WOATAF B81 WRITE FWO 1024. WORDS 
STARTING AT EMO 


CTRA ;WRITTEN 72 TIMES? 
C18 ;6R IF NOT. 


165714 
165724 BER 
165716 : ‘3. “sh 





ga 
gy 
2 
UO 
aa 
oe 
m 
wi 
—~ 


bf b= B= 6 = bP» = BP ps Bp oh Pee 


Pere 


8 


Be 
io .£ 


OOOO OO OOOO OOOO O0O00OO000000000 


bb bb fb 2 fh = = bb fh hm bs Pe Be bb = bs 


o Raa 
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Sande 165656 "MOV ,CTRA sSET uP TO WRITE 4 4 BL S REV 72 TIMES 
3° BLKRO iat ING WITH BLock 
HEEEEB cic: BBY te Sa Pak 
WOATAR ;CALL WOATAR SUB TO WRITE REV 1024. WORDS 
Be STARTING AT ADDR EMO 
z 165630 DEC ee" ra 72 TIMES? 
16 MOV #72. ,CTRA fiat OCKS FWD 72 TIMES. 
eared 1pepEe id I Reo reo, WI A etork 0. 
000010 165622 C1D: ADD #8. , BLKRO 
CLEAR ;CLEAR 1024 WORD READ BUFFER. 
re a : 
RDATAF RDATAF SUB TO READ FUD 1024 WORDS 
1024. STORE AT ADDR STARTING A 
DATCHK ens DATCHK SUB TO CHECK para STORED AT 
EMO "EMO AGAINST DATA STORED A 
WBUF 5 CHECK NUMBER OF WORDS ROECIFTED. REPORT 
165554 DEC CTRA IRE 72 TIMES? 
BNE C1D NOT. 
110 165544 MOV #72. ,CTRA *SET UP TO READ 4 BLOCKS REV 72 TIMES. 
001107 165554. MOV #583. , BLKRO STARTING WITH BLOCK $75. 
NO0010 165546 C1E: SUB #8. , BLKRO 
: CLEAR ;CLEAR 1024 WORD READ BUFFER. 
rt ‘ 
RDATAR ;CALL_RDATAR SUB TO READ REV 1024. WORDS 
1924. :STARTING AT BBR Sate 
DATCHK ;CALL DATCHK SUB TO CHECK DATA STORED AT 
EMO EMO AGAINST DATA STORED AT WBUF 
WBUF CHE NUMBER OF WORDS SPECIFIED. REPORT 
165500 ¢ CTRA AD e. TIMES? 
BNE CIE Re IF NO 
SCOPE : DONE. SOOPE. 
WBUF : 
. =WBUF +1064 
RBUF : 
. =RBUF +1040 
“END 
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EAA =s«007732 1811 18168 
EB 18228 1835 

1819 18258 
153 1BBGs 
1868 18728 
18808 1903 
1874 18838 
1883 18858 
1891 18998 
1901 19048 
14,8478 
1837 \gSe8 

sie 914 

550 40 8498 

850 40 BS28 
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iste 16 
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] 
am 
91 1916 
og ou 
ese 365 
87 488 
MOVB 636 680 
NEG 1386 
NOP 10 1406 
RESET 2 838 
ROL 920 gel 
ROR 1014 1015 
RTI 767 g 
the} 
1171 1180 
YR29 1671 
RTS 756 763 
ea4 1038 
TS 632 S46 
1106 1135 
TSTB 662 745 
ABS 381 
-ASCIT [RH TSSy 
1517 1527 
ASCIZ 1453 L4s4 
1524 1S29 
1588 1589 
-BYTE 1061 1379 
END ends 
EVEN 1601 
LIST : a3 
is 
18th 1952 
2321 2340 
a 
5S1 oo3 
581 583 
611 613 
1910 1952 
e3el 2340 
REM 1 
REPT 401 
TITLE 1 
WORD S26Stts«CS 2D 
SS6 558 
aac 
616 518 
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